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This  document  specifies  the  design  of  the  Medical  Exam  Databases 
(MED)  systan  update  transaction.  This  transaction  will  require  the 
SYSTEM  2000(R)  QueX(TM)  with  Screen  Writer(TM)  Release  4. OS 
software  in  order  to  be  implemented  and  is  thus  is  constrained  to 
the  availability  of  Release  4. OS  for  production  use. 

The  MED  system  consists  of  the  following  five  primary  SYSTQl  2000 
data  bases: 


1. 

ECG 

(ECG) 

2. 

CATHETER 

(CA) 

3. 

TREADMILL 

(TM) 

4. 

PULMONARY 

(PUL) 

5. 

LAB 

(LAB) 

One  additional  data  base  will  be  used  to  hold  edit  and  validation 
rules  for  the  LAB  data  ». 

The  transaction  specified  herein  provides  an  integrated  update 
capability  for  the  five  primary  data  bases  in  the  MED  system. 

Although  the  logic  and  screens  that  process  the  level  zero  records  ^ 

and  all  records  in  the  EGG  data  base  are  currently  implemented, 

the  work  completed  may  or  may  not  conform  to  the  design  set  forth 

in  this  document.  Consequently,  existing  development  will  have  to 

be  changed  to  correct  problems  as  well  as  address  new  requirements, 

naming  conventions,  and  standards.  It  is  not  the  purpose  of  this 

document  to  detail  discrepancies  between  the  work  already  completed  * 

and  the  proposed  design  which  has  changed  over  time.  Therefore, 

these  discrepencies  will  be  captured  and  maintained  in  a  separate 

document  entitled  "Changes  Required  for  Existing  MED  Transaction 

Update  System".  This  repository  will  be  the  working  document  for 

evaluating,  tracking,  and  forcing  conformity  between  the  design 

document  and  the  work  that  has  already  been  completed  on  the  * 

transaction. 

This  design  document  first  provides  an  overview  of  the  transaction. 

Following  this  are  specifications  of  the  the  standards  which  govern 

both  the  development  and  the  rules  of  operation  throughout  the 

transaction.  The  remainder  of  the  document  describes  the  * 

transaction  by  data  base.  Each  data  base  is  divided  into  the  steps 

required  to  process  updates  for  that  data  base.  The  screen 

layout,  processing  logic,  editing  and  validation  rules,  and  any 

special  notes  are  included  for  each  step  as  appropriate. 

Consequently,  this  design  document  defines  completely  and  precisely 

all  operational  characteristics  of  the  final  transaction.  » 


I 


•  ••••••• 


f!' 


Page  2-1 
Part  2 


PART  2:  HANSACTION  OVERVIEW 


The  primary  purpose  of  the  MED  system  update  transaction  is  to 
interactively  update  all  Information  contained  in  the  five  data 
bases  that  comprise  the  MED  system.  The  MED  system  update 
transaction  will  really  be  two  transactions  with  distinct 

transaction  names  to  be  assigned  by  a  DBA.  Two  different 

transactions  are  required  to  provide  data  security  and  at  the  same 
time  flexibility  in  altering  LAB  data  outside  of  normal  editing  and 
validation  rules.  One  transaction  "view'*  will  only  allow  the  entry 
of  LAB  values  in  the  ' permissable*  ranges.  This  transaction  will 
be  the  TECH  version.  The  other  transaction  will  be  duplicate  in 
every  respect  except  that  all  LAB  validation  rules  will  be  removed. 
This  will  be  the  CHIEF  version. 

The  MED  views  of  each  of  the  five  data  bases  are  presented  in 
DESCRIBE  format  in  the  Part  covering  the  specific  data  base, 
respectively.  All  data  bases  have  the  PERSON  record  at  level  zero 
and  the  various  exam  data  at  level  one  and  below.  Since  the  ECG 
data  base  is  the  'controlling*  data  base  in  the  MED  system,  a 

PERSON  record  must  exist  in  the  ECG  data  base  before  it  can  exist 

in  any  of  the  other  data  bases.  However,  the  existence  of  a  PERSON 

I  record  in  the  ECG  data  base  does  not  require  that  record  to  exist 

in  any  of  the  other  data  bases,  although  It  may  exist. 

Entry  to  the  transaction  and  all  maintenance  of  the  PERSON  record 
are  done  through  the  ECG  data  base.  If  the  person  does  not  exist 
in  the  ECG  data  base,  the  user  has  the  option  to  add  the  person  and 
then  to  modify  or  correct  the  data  just  entered.  If  a  person 
already  exists  in  the  ECG  data  base,  the  user  is  given  the  option 
to  modify  the  person  data.  At  this  point,  if  the  PERSON  record  is 
modified,  the  transaction  modifies  the  person  data,  based  on  the 
unique  social  security  number  (SSAN),  in  all  other  data  bases  where 
the  person  exists.  The  transaction,  though,  does  not  add  this 
person  to  data  bases  where  the  person  did  not  already  exist. 

Only  after  a  valid  ( ?rd  current)  PERSON  record  in  ECG  is 
established  is  the  user  pi\  ni  the  choice  of  exam  type  to  work  with. 
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If  the  exam  type  selected  is  ECG,  the  transaction  remains  in  the 
ECG  data  base,  the  user  is  assured  of  the  existence  of  a  PERSON 
record  to  work  from,  and  additional  ECG  exams  can  be  added  or 
existing  ECG  exams  can  be  modified. 

If  the  exam  type  is  LABORATORY  (LAB),  TREADMILL  (TM) ,  CATHETER 
(CA),  or  PULMONARY  (PUL),  the  transaction  must  close  the  ECG  data 
base  and  open  the  requested  data  base  to  check  for  the  existence  of 
a  matching  PERSON  record  based  on  SSAN.  If  not  found,  the  user  is 
given  a  choice  to  add  that  person  to  the  additional  data  base.  If 
the  user  chooses  to  do  so,  the  ECG  PERSON  record  can  be  copied  to 
the  additional  data  base  and  inserted.  Once  valid  PERSON  data 
exists  in  the  additional  data  base,  the  user  can  add  new  exam  data 
or  modify  existing  exams  in  that  data  base. 


The  logic  described  above  is  designed  to  insure  consistency  of 
PERSON  data  across  the  five  data  bases.  Additionally,  it  is 
critical  that  the  values  within  a  data  base  be  as  correct  as 
possible.  Thus,  the  MED  system  update  transaction  validates  almost 
all  input  data  as  extensively  as  possible.  The  consistency  and 
correctness  are  vital  to  the  medical  conclusions  that  may  be 
derived  from  the  Medical  Exam  Databases. 
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PART  3:  HAHSACTION  STANDARDS 


A  uniform  set  of  standards  and  conventions  must  be  established  and 
adhered  to  throughout  an  entire  system  to  fully  realize  the 
substantial  benefits.  Uniformity  facilitates  easier  user  training, 
better  productivity  by  more  experienced  users,  and  the  user's 
ability  to  anticipate  the  next  event  in  a  given  system  while 
ensuring  the  consistency  among  the  entire  system  In  form  and 

content.  Of  course,  standards  can  also  prove  Invaluable  to  the 
developer  and  hence  reduce  overall  development  time.  Consequently, 
development  standards  have  been  Identified  to  promote  uniformity, 
consistency,  and  reduced  development  time. 

With  these  goals  In  mind,  the  following  standards  and  conventions 
apply  to  the  MED  system  update  transaction: 

1.  Screen  literals  will  be  lower  case,  low  Intensity  and 

protected. 

2.  Screen  output  fields  (both  SWI  and  DBI)  that  cannot  be 

changed  by  the  user  will  be  upper  case,  low  intensity  and 

protected . 

3.  Screen  Input/output  fields  (both  SWI  and  DBI)  that  can  be 
changed  by  the  user  will  be  upper  case,  high  intensity  and 
unprotected  (tab  stop). 

4.  Screen  literals  used  to  prompt  for  DBI  (and  in  some  cases 
SWI)  values  will  be  to  the  left  or  above  the  DBI/SWI  field. 
These  literals  are  to  be  the  same  as  the  DBI  name  in  the 
data  base  except  where  abreviations  were  approved  in  the 
design  meetings.  DBI  literals  will  be  above  the  field  where 
possible. 

5.  Screen  layouts  are  to  follow  the  data  entry  forms  where 
possible,  at  least  In  the  ordering  of  items  on  the  screen. 

6.  The  literal  prompt  for  option  selection  will  be  on  the  left 
of  the  option  field  and  will  not  contain  a  question  mark  or 
colon . 

7.  If  several  choices  for  an  option  exist,  they  will  be  listed 
directly  under  the  option  field  with  a  description  to  the 
right  of  the  value. 
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» 


» 


» 
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8.  All  screens  begin  on  line  1,  column  1;  except  in  those 
screens  that  work  with  records  descendant  to  the  PERSON 
record,  the  SSAN,  NAME,  DOB,  RACE  and  SEX  will  begin  on  row 

1  without  Identifying  literals.  On  screens  working  on  a 
given  exam,  that  exam's  Identifying  data  will  appear  on  line 

2  without  literals.  * 

9.  All  SYSTEM  2000  commands  will  have  an  ERROR  condition 
handling  directive  with  a  message  Identifying  the  conmiand 
name,  step,  phase  and  sequence  number.  They  will  go  to 
$ERR0R  which  displays  the  message  along  with  other  system 

parameters.  * 

10.  All  option  fields  will  be  validated  for  exceptable  values  or 
choices. 

11.  All  DBI  fields  will  be  validated  on  input  as  specified  in 

the  validation  rules  portion  of  a  step  description.  ► 

12.  Screen  names  will  match  step  names  when  possible. 

13.  INSERT  screens  always  go  to  modify  screens  to  allow  the  user 
to  modify  a  record  Just  Inserted,  except  in  the  case  of 

LABINSPAN  or  LABINSTEST  (allowing  a  modify  might  jeopardize  » 

the  integrity  of  lower  level  data) . 

14.  MODIFY  screens  return  to  themselves  until  the  user  answers 
'N'  to  the  'modify'  prompt,  at  which  time  the  screens  return 
to  an  appropriate  menu. 

» 

15.  Fields  requiring  an  edit  table  lookup  will  allow  both  the 
short  and  long  value  on  Input.  The  long  value  will  be 
stored  in  the  data  base.  Validation  will  occur  on  the  long 
values. 

16.  When  multiple  exams  are  displayed  on  a  screen  for  selection,  I 

the  following  rules  apply: 

a)  The  exams  will  be  numbered  on  the  left  beginning  with  1, 
except  the  transaction  screens  which  display  14  items,  in 
which  case  numbering  will  be  according  to  the  $DATASP  of 

each  item.  I 

b)  If  no  exams  exist,  an  INSERT  exam  screen  automatically 
appears . 

c)  If  the  SELECT  exam  field  is  left  blank,  the  step  tries  to 

retrieve  another  page  of  exams  for  display  (on  EOD,  I 

message  is  displayed  and  user  may  enter  a  selection  or 
re-review  all  choices). 


» 
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d)  If  'O'  Is  entered  for  SELECT  exam,  control  returns  to 
prior  menu. 

e)  If  an  Integer  ' n'  is  entered  and  it  is  less  than  or  equal 
to  the  number  of  existing  exams,  that  exam  is  retrieved 
and  displayed  for  possible  modification. 

f)  If  an  integer  'n'  is  entered  and  it  is  greater  than  the 
number  of  existing  exams,  then  an  INSERT  exam  screen  is 
displayed. 

17.  INSERT  screens  will  never  Insert  a  record  unless  the  user 
answers  'Y'  to  the  'INSERT'  prompt. 

18.  Data  will  be  validated  via  Phase  2  Validation  commands  when 
possible  so  that  the  bell  will  ring  and  the  cursor  will  be 
placed  on  the  erroneous  field.  Phase  3  MESSAGE  and  Phase  2 
commands  will  do  complex  validation  not  possible  via  the 
VALIDATE  command. 

19.  VALIDATE  commands  will  have  messages  that  conform  to 

existing  conventions.  Phase  3  MESSAGE  commands  used  in 
validation  will  use  the  same  convention.  A  list  of  existing 
message  conventions  is  shown  in  Exhibit  3-1. 

20.  When  the  required  Information  in  a  validation  failure  will 
not  fit  in  a  single  message  (for  example,  table  lookups),  a 
HELP  screen  will  be  provided.  If  all  of  the  information 
will  not  fit  on  a  single  HELP  screen,  then  examples  will  be 
provided  and  the  appropriate  document  referenced. 

21.  All  data  bases  will  be  closed  as  soon  as  access  to  another 
data  base  begins,  except  when  going  between  LAB  and  BATTERY 
data  bases. 


22. 


Step  names  and  screen  names  will  conform  to  the  following 
naming  convention: 


EGG 

! 

1 

MEN 

TM 

1 

1 

SEL 

CA 

1 

1 

INS 

LAB 

1 

1 

MOD 

PUL 

1 

I 

SPG 

record  name  (or  abbreviation) 


EGG 

« 

EGG  data  base 

MEN 

=  menu 

TM 

m 

Treadmill  data  base 

SEL 

“  select 

GA 

M 

Gatheter  data  base 

INS 

*  Insert 

LAB 

m 

Laboratory  data  base 

MOD 

=■  modify 

PUL 

- 

Pulmonary  data  base 

SPG 

*  special  (LAB) 

♦ 


I 
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Consequently,  the  full  step  or  screen  name  vlll  be  comprised 
of  the  associated  data  base,  the  type  of  screen  or  action, 
and  the  associated  record  name  or  abbreviation  (example: 
ECGSELPERSON  for  selecting  a  person  from  the  ECG  data  base). 

23.  Each  message  sent  to  the  terminal  will  ring  the  bell. 


I 
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I 
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F.xhlblc  3-1;  Existing  Transaction  Validation  Error  Messages 


•^301*  ENTER  "V  TO  PROCEED.  "N"  TO  EXIT 
301*  SSAN  TOO  LARSE 

3ui*  NAME  MUST  BE  LETTERS  ONLY.  ..J  PUNCTUATION  OR  NUMBERS 

301*  YEAR  OF  BIRTH  =  AGE  UNDER  17  OR  OVER  83 

301*  month  OF  BIRTH  MUST  BE  1  THRU  12 

301*  DAY  OF  BIRTH  MUST  BE  1  THRU  :i 

301*  SEX  MUST  BE  "M"  OR  ■•P" 

301*  RACE  MUST  BE  '•CAU".  "BLl  '•  OR  "QTH" 

301*  SSAN  MUST  BE  NUMBERS  ONLY 
~'.a*  SSAN  MUST  BE  NUMBERS  ONLY 
301*  SSAN  MUST  BE  NUMBERS  ONLY 
301*  YEAR  OF  BIRTH  MUST  BE  NUMERIC 
301*  MONTH  OF  birth  must  BE  NUMERIC 
301*  DAY  OF  BIRTH  MUST  BE  NUMERIC 
301*  ENIEF.  RLR.-UN  SELECTED 

301*  VALID  ENTRIES  FOR  SELECT  PERSON  ARE  1  OR 
3T1.  PLEuSE  select  a  PERSQI4 

301*  IN  SELECTING  A  PERSON.  ENTER  "I".  "C"  OR  "'V- 
301*  PLEASE  SELECT  A  PERSON 

301*  IN  SELECTING  A  PERSON.  ^ENTER  "I".  pp, 

301*  YOU  MUST  INDICATE  WHETHER  TO  INSERT  TLUS  PERSON  Y/N 
301*  FOR  INSERT  PERSON.  SPECIFY  "Y"  OR  "N" 

301*  YEAR  OF  BIRTH  =  AGE  UNDER  17  OR  OVER  33 
-pOI*’  DOD  (EhR  MI.IST  BE  tJUMERIC 

•  _301*  MONTH  OF  BIRTH  MUST  BE  BETWEEN  1  AMD  12 _ 

301*  DAY  OF  BIRTH  MUST  BE  BETWEEN  1  AND  31 
301*  MONTH  OF  BIRTH  MUST  BE  NUMERIC 

301*  DAY  OF  BIRTH  MUST  BE  NUMERIC  _ 

301*  SEX  MUST  BE  "M"  OR  "F" 

301*  RACE  MUST  BE  "CAU".  "BLL  "  OR  "OiH" 

301*  NAME  MUST  BE  SPECIFIED  AS  LAST_FIRST  MI  SUFFIX 
301*  SSA('J  MUST  BE  UNIQUE 

301*  NAME  MUST  BE  LETTERS  ONLY.  L-’O  PUNCTUATION  OR  NUMBERS 

301*  SSAN  MUST  BE  SPECIFIED  _ 

r.'lil*  SSAN  MUST  BE  SPECIFIED  . * 

301*  SSAN  MUST  PE  SPECIFIED 

^'''r.Ol*  PLEASE  SPECIFY  WHICH  IDENTIFIER  IF_Ar^Y_yOU '  L  L  CHmNGE 
■'"^01*  FOR  MODIFY  ID,  ENTER  "Y"  OR  “N" 

301*  SSAN  MUST  BE  SPECIFIED 

301*  SSAN  MUST  BE  NUMERIC _ _ _ 

301*  SSAN  OUT  OF  RANGE 
301*  SSAN  MUST  BE  ENTERED 

3ol*  SSAN  MUST  BE  NUMERIC _ _ _ _ _ 

301*  SSAN  MUST  BE  ENTERED 
301*  SSAN  MUST  BE  NUMERIC 

301*  ENTER  NAME  LAST  FIRST  MI  SUFFIX  _ 

301*  NAME  MUST  BE  ALL  LETTERS.  NO  PUNCTUATION  OR  NUMBERS 

301*  YEAR  OR  BIRTH  =  AGE  UNDER  17  OR  OVER  83 

301*  YEAR  OF  BIRTH  MUST  BE  NUMERIC 

301*  MONTH  OF  BIRTH  MUST  BE  "1"  THRU  "12" 

301*  DAY  OF  BIRTH  MUST  BE  "1"  THRU  "31" 

301*  5EY  MUST  BE  ENTERED 
301*  SEX  MUST  BE  "M"  OR  "F" 

301*  PACE  MUST  BE  ENTERED 
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PART  4:  ECG  DATA  BASE 


Since  the  ECG  data  base  Is  the  'controlling'  data  base  in  the  MED 
system,  a  PERSON  record  must  exist  in  the  ECG  data  base  before  it 
can  exist  in  any  of  the  other  data  bases.  Hokjever,  the  existence 
of  a  PERSON  record  in  the  ECG  data  base  does  not  require  that 
person  to  exist  in  any  of  the  other  data  bases.  In  general,  the 
ECG  part  of  the  transaction  provides  for  the  initialization  of  the 
transaction,  the  selection  of  a  person,  the  addition  or 
modification  of  a  person,  the  addition  or  ...odif ication  of  ECG  exam 
data,  and  the  navigation  to  other  data  bases  through  menus  based  on 
a  person  located  in  the  ECG  data  base. 

Entry  to  the  transaction  and  all  maintenance  of  the  PERSON  record 
are  done  through  the  ECG  data  base.  If  the  person  does  not  exist 
in  the  ECG  data  base,  the  user  has  the  option  to  add  the  person, 
modify  the  person  data  just  entered,  or  select  another  person.  If 
a  person  already  exists  in  the  ECG  data  base,  '■he  user  is  given  the 
option  to  modify  the  person  data.  At  this  point,  if  the  PERSON 
record  is  modified,  the  transaction  modifies  the  person  data,  based 
on  the  unique  social  security  number  (SSAN),  in  all  other  data 
bases  where  the  person  exists. 

Only  after  a  valid  (and  current)  PERSON  record  in  ECG  is 
established  is  the  user  given  the  choice  of  exam  type  to  work  with. 

If  the  exam  type  selected  is  ECG,  the  transaction  remains  in  the 
ECG  data  base,  the  user  is  assured  of  the  existence  of  a  PERSON 
record  to  work  from,  and  additional  ECG  exams  can  be  added  or 
existing  ECG  exams  can  be  modified. 

If  the  exam  type  is  LABORATORY  (LAB) ,  TREADMILL  (TM) ,  CATHETER 
(CA),  or  PULMONARY  (PUL),  the  transaction  closes  the  ECG  data  base 
and  opens  the  other  requested  data  base  to  check  for  the  existence 
of  a  matching  PERSON  record  based  on  SSAN.  If  not  found,  the  user 
is  given  a  choice  to  add  that  person  to  the  additional  data  base 
and  if  the  user  chooses  to  do  so,  the  ECG  PERSON  record  can  be 
copied  to  the  additional  data  base  and  inserted.  Once  valid  PERSON 
data  exists  in  the  additional  data  base,  the  user  can  add  new  exam 
data  or  modify  existing  exams  in  that  data  base.  Further 
information  on  the  other  data  bases  can  be  found  in  the  Part 
specific  to  that  data  base. 

The  ECG  data  base  definition  is  shown  in  Exhibit  5-1  followed  by 
the  primary  data  input  form  in  Exhibit  5-2.  The  steps  and  screens 
that  perform  updates  to  the  ECG  data  base  are  defined  in  the 
following  chapters. 
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Kxhibit  4-1:  ECG  Data  Base  Definition 


.-.TA  name  I  ?.  EPh 

FINITIuN  NUMBER 
.  aTA  BAEE  cycle  21 C2 
O*  PERSON 

1*  GSAN  (CHAR  X(9)) 

2*  NAME  (CHAR  X(ly)' 
riGE  (DHrC) 

iiA  se:<  (NON--:EY  chak  x) 

12'  RAl-E  ( !'jr  ■  -I- ey  CHhR  >/  >:) 
1 1 '>  0  a-  E  X  AM:-  (  R  E  i  Ii  P  Ei ) 


I 

DOE  iBAT 

K  IN 

1  (jO ) 

12u# 

Nur-i  (ii'ir 

EG£F< 

NI.IMBER  9^7)  IK 

1  C".* ) 

AGE  (INT 

t.uER 

NUMBER  Ky  IN  y. 

'■  *) 

140# 

HT  ( Ni'.iN- 

key 

INTEGER  NUMFMER 

IN  iOy) 

1 5  C) 

WT  (N0!'4- 

kEY 

DECIMAL  NUMBER 

T'vV'.y  IN  jy.u 

160# 

SBP  (NON 

-KEY 

INTEGER  NUMBE# 

.  R'.-'K  IN  luO; 

1  70  .# 

DBF'  1  NON 

-K  EY 

I NTEGEF’’  NUMBEf' 

i  999  IN  IkO) 

DX  (NON¬ 

f-  EY 

CHAR  X  IM  100) 

200-^- 

RISK  f-AU 

T  CiRS) 

(RECORD  IN  iOU') 

210-=^  TCHOL  (NON-KEY  INTEGER  NUMBER  99'^9  IN  200) 
220#  HDL  (NOW-KEV  INTEGER  NUMBER  999  IN  BOO) 
220#  TRITi  (MON-KEY  INTEGER  NUMBER  9999  IN  C'DO ) 
240#  FBC  (NON-KEY  INTEGER  NUMBER  999  IN  200) 
250#  PF^D  (NON-KEY  DECIMAL  NUMBER  9.9  IN  200) 
260#  CIGARS  (NON-KEY  INTEGER  NUMBER  99  IN  200) 
270#  BOWLS  (NON-KEY  INTEGER  NUMBER  99  IN  200) 
200#  FM  HX  CAD  (NON-KEY  CHAR  X  IN  CCx;)) 

222#  RISK  (INTEGER  NUMBER  9(6)  IN  200) 

.300#  DX  CODES  (RECORD  IN  100) 

210#  SAM  (CHAR  X ( 6 )  IN  300) 

700#  PRIOR  NAMES  (RECORD) 

710#  PRIOR  NAME  (CHAR  X(19)  IN  700) 

720#  NAME  MODIFIED  (NON-KEY  DATE  700) 
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Exhibit  4-2:  EGG  Sample  Input  Forms 
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Called  From 

This  Is  the  initial  step  in  the  transaction. 

Logic 

1.  If  PROCEED  »  Y  then  go  to  step  ECGSELPERS,  else 
transaction. 

Validation 

SWI  PROCEED  mandatory,  table  (YESNOTBL,  exists). 


•  •••••• 


exit 


•  • 
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Exhibit  4-3:  BROADCAST 

H - 

I 

I 

1  »>  Sensitive  Data  for  Official  Use  Only  <<< 

!  $5000  Fine  for  Unauthorized  Access 

1 
t 
I 

1  Aug  1983 

I 

I 

I 

I 

1  In  step  Person,  enter  SSAN,  NAME  or  both. 


proceed 


•+ 
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Chapter  4.2:  ECGSELPKRS 

Purpose 

To  select  a  person  In  the  ECG  data  base  given  the  exact  social 
security  number  (SSAN)  or  by  name. 

Screen 

ECGSELPERS 

Logic 

If  only  a  social  security  number  is  entered, 

select  a  person  on  that  social  security  number  (SSAN); 

If  SDATASN  •  0,  display  message  and  go  to  Phase  2. 

If  SDATASN  -  1,  go  to  ECGMODPERS. 

If  SDATASN  >  1, 

display  msg: 'DUPLICATE  SSAN,  CALL  BILL  NIXON'  and  go  to  Phase  2. 
If  only  a  name  is  entered, 

select  person  record(s)  on  that  name; 

If  SDATASN  =  0,  display  message  and  go  to  Phase  2. 

If  SDATASN  >  0  and  <  5,  go  to  ECGSELPERS4. 

If  SDATASN  >4,  go  to  ECGSELPERS14. 

If  SSAN  and  name  are  both  entered, 

select  person  record  on  SSAN  and  name; 

If  SDATASN  >  1, 

display  msg: 'DUPLICATE  SSAN,  CALL  BILL  NIXON’  and  go  to  phase  2. 
If  SDATASN  -  1,  go  to  ECGMODPERS. 

If  SDATASN  =•  0, 

select  person  record  on  name  or  SSAN; 

If  SDATASN  «  0, 

display  message  and  go  to  ECGINSPERS. 

If  SDATASN  >0  and  <  5, 
go  to  ECGSELPERS4. 

If  SDATASN  >  4, 

go  to  ECGSELPERS14. 

If  neither  SSAN  or  name  entered. 

Exit . 

Validation 

SSAN  -  proper  values:  first  three  digits  range  0-800,  the  rest  numeric, 
name  -  for  alphabetic 


I 


» 


I 


I 


» 


» 
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» 
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person 

ssan 


name 


dob 

yy/mm/dd 

/  / 


sex  race 


I 
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Chapter  4.3:  ECGSELPERS4 

Called  From 

ECGSELPERS  when  $DATASN  >  0  and  <  5 

Screen 

ECGSELPERS4 

Logic 


1.  Retrieve  up  to  four  PERSON  records,  number  screen 
accordingly,  and  display. 

2.  If  select  record  (SWI  for  select  person  option  field)  “  0, 
go  to  ECGSELPERS. 

3.  If  select  record  (SWI  for  select-person  option  field)  > 

$DATASN,  go  to  ECGINSPERS. 

4.  If  select  record  (SWI  for  select  person  option  field)  = 

$DATASP,  go  to  ECGMODPERS. 

5.  If  select  record  (SWI  for  select  person  option  field) 

$DATASN,  rewind  locate  file,  retrieve  PERSON  via  $S2KC0UNT, 
and  go  to  ECGMODPERS . 

Validation 


1.  select  record  -  numeric,  mandatory,  range  0-5 
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Chapter  4.4:  ECGSELPERS14 

Called  From 

ECGSELPERS  when  $DATASN  >  4 
Screen 

ECGSELPERS 14 


1.  Retrieve  up  to  14  PERSON  records,  number  screen  accordingly, 
and  display. 

If  SDATASP  <  $DATASN,  then  issue  message:  "Press  Return  To 
See  More  Records". 

If  $DATASP  ■  $DATASN  and  $DATASN  >  14,  then  issue  message: 
"Press  Return  To  See  Prior  Records". 

2.  If  select  record  (SWI  for  select  person  option  field)  =  0, 
go  to  ECGSELPERS. 

3.  If  select  record  (SWI  for  select-person  option  field)  = 

blanks,  then  if  $DATASP  =•  $DArASN,  rewind  locate  file.  In 
either  case,  go  to  1. 

4.  If  select  record  (SWI  for  select-person  option  field)  > 

$DATASN,  go  to  ECGINSPERS. 

5.  If  select  record  (SWI  for  select-person  option  field)  “ 

$DATASP,  go  to  ECCMODPERS. 

6.  If  select  record  (SWI  for  select-person  option  field)  £ 

$DATASN,  rewind  locate  file,  retrieve  proper  person,  go  to 
ECGMODPERS . 

Validation 

1.  select  record  -  numeric 
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Exhibit  4-6:  ECGSELPERS14 

♦ 

1 

1 

1 

1  select  person 

1 

>  • 

1 

\ 

1  ssan  name 

1 

j 

dob  sex  race 

yy/mm/ dd 

1 

1 

1 

i 

!  1  -  - 

/  / 

i 

i 

1  2 

\ 

1 

!  3 

;  • 

1 

1 

1 

1  5 

1 

1 

1  6 

1 

1 

1  7 

1 

1 

1  8 

1 

!  9 

j  • 

1  10 

t 

1 

1  11 

1 

1 

1  12 

1 

1 

1  13 

1 

1 

1  U 

1 

1 

1 

1  0  none  of  the  above 

\ 

1 

1 

1 

•  » 

1 

1 

1 

1 

1 

1 

•  : 

1 

1 

1 

1 

1 

1 

1 

f 

1 

1 

1 

t 

1  » 

1 

1 

1.  Record  numbers  in  columns  1  and  2 

are  SWIs 

corresponding  to  the 

» 

$DATASP  for  each  record. 

» 

» 

> 

• 

•  •  •  • 

• 

•  • 

• 
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» 


» 

Chapter  4.5:  ECGMODPERS 

Called  From 

ECGSELPERS  if  a  unique  person  is  selected;  ECGSELPERS4  or 

ECGSELPRES14  if  a  particular  PERSON  record  is  selected;  ECGINSPER  ► 

after  a  new  PERSON  record  is  Inserted. 

Screen 


ECGMODPERS 

I 

Logic 

Set  OLDNAME  »  NAME  and  display  screen. 

If  modify  record  (SWI  for  modify-person  option  field)  =  N, 
go  to  ECGMENPERS. 

If  modify  record  (SWI  for  modify-person  option  field)  =  Y, 

modify  PERSON.  » 

If  OLDNAME  not  =•  NAME, 

set  PRIOR  NAME  -  OLDNAME; 
set  NAME  MODIFIED  =  $TODAY; 
retrieve  last  PRIOR  NAMES  record; 
insert  PRIOR  NAMES  record  after. 

go  to  ALLMODPERS.  » 

Validate 

■J  '  ■ 

1.  SSAN  -  mandatory,  range  0-800  for  first  three  digits, 
numeric,  and  unique 

) 

2.  name  -  mandatory,  alphabetic 

3.  date  of  birth  -  for  proper  values 

4.  sex  -  for  SEXTBL  table 

5.  race  -  for  RACETBL  table 

6.  modify  record  (SWI  for  modify-person  option  field)  is 
mandatory  (YESNOTBL,  exists). 


» 


» 


I 


•  •  • 


•  •  •  • 
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•  ••••••• 


T 
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Chapter  4.6:  ALLMODPKRS 

Called  From 

ECGMODPERS  if  modify  record  (SWI,  modify-person  option  field)  =■  Y. 

Screen 
None . 

Logic 

1.  This  step  will  open  all  data  bases  one  at  a  time. 

Then  attempt  to  retrieve  the  record  on  SSAN  selected  in 
prior  step. 

If  found,  modify  that  PERSON  record.  If  not  found,  close 
data  base  and  go  to  the  next  data  base. 

Continue  to  each  of  the  other  four  data  bases. 

When  finished,  go  to  ECGMODPERS. 

Validation 

None  -  done  In  ECGMODPERS 


4r. 

» 

* 

m 

m, 

» 

♦ 

» 

» 

» 

I 
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Chapter  4.7:  ECCIHSPERS 

Called  From 

ECGSELPERS4  or  ECGSELPERS14  when  select  record  >  $DATASN.  From 
ECGSEL^ERS  when  both  SSAN  and  NAME  entered  but  $DATASN  -  0. 

Screen 

ECGINSPERS 


Logie 


If  insert  record  (SWI  for  insert-person  option  field)  =  Y, 
Insert  person  record; 
go  to  ECGMODPERS. 

If  Insert  record  (SWI  for  insert-person  option  field)  =  N, 
go  to  ECGSELPERS. 

Validation 


1.  Insert  record  (SWI  for  insert-person  option  field)  is 
mandatory  (YESNOTBL,  exists). 

2.  Same  as  ECGMODPERS,  except  only  insert  record  is  mandatory. 


•  •  •  • 


•  •  •  • 


-'4 
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Exhibit  4-8:  ECGIHSPERS 


4 


Insert  person  _ 
person 

ssan  name 


dob  sex  race 
yy/mm/dd 
/  / 


■+ 


I 


I 


t 


•  •  • 
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Chapter  4.8:  ECCMENFESS 

Called  From 

ECGINSPERS,  ECGMODPERS,  ECGKENEXAM,  ECGMENPRIO,  and  others  In  other 
data  bases  which  want  to  switch  to  a  new  data  base 

Screen 

ECGMENPERS 

Logic 


If 

SELECTYPE 

1. 

go 

to 

ECGSELPERS. 

If 

SELECTYPE 

- 

2. 

go 

to 

TMSELPERS. 

If 

SELECTYPE 

- 

3. 

go 

to 

CASELPERS. 

If 

SELECTYPE 

- 

4, 

go 

to 

LABSELPERS. 

If 

SELECTYPE 

m 

5. 

go 

to 

PULSELPERS. 

If 

SELECTYPE 

- 

6, 

go 

to 

ECGSELEXAM 

If 

SELECTYPE 

- 

7, 

go 

to 

ECGSELPRIO. 

If 

SELECTYPE 

- 

0, 

go 

to 

$EXIT. 

Validation 

1.  SELECT  STEP  -  mandatory,  numeric,  range  0-7 
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Exhibit  4-9:  ECOffiNFERS 


<ssan>  <name>  <dob>  <sex> 

select  next  step  _ 


1 

select 

new  person 

2 

select 

treadmill 

3 

select 

cath 

4 

select 

lab 

5 

select 

pulmonary 

6 

select 

ecg 

7 

select 

prior  names 

0 

exit 

<race> 
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» 


% 


Chapter  4.9:  ECGSELEX4M 

Called  From 
BCGMENPERS 
Screen 
none. 

Logic 

1.  Select  PERSON  on  SSAN  (guarantees  one  person  In  locate  file). 

Select  all  EXAMS  records  where  SAME,  ORDER  BY  DOE. 

2.  If  $DATASN  -  0,  go  to  ECGINSEXAM. 

If  $DATASN  >  0  and  <  5,  go  to  ECGSELEXAM4. 

If  $DATASN  >4,  go  to  ECGSELEXAM14. 

Validation 

None 

Screen 

None 


I 


» 


» 


► 


I 


» 


» 


» 


t 


•  •  •  • 
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Chapter  4.10:  ECGSEI£XAM4 
Called  From 

ECGSELBXAH  when  $DATASN  <  5 
Logic 


1.  Retrieve  up  to  four  EXAM  records. 

Number  screen  accordingly. 

Display  screen. 

2.  If  select  record  (SWI  for  select-exam  option  field)  *  0, 

go  to  ECGMENPERS. 

3.  If  select  record  (SWI  for  select-exam  option  field)  “  $DATASP 

go  to  ECGMODEXAM. 

4.  If  select  record  (SWI  for  select-exam  option  field)  ^  $DATASN, 

rewind  sibling  chain; 
retrieve  record  via  $S2KC0UNr; 
go  to  ECGMODEXAM. 

5.  If  select  record  (SWI  for  select-exam  option  field)  >  $DATASN 

go  to  ECGINSEXAM. 


Validation 


1.  Select  record  (SWI  for  select-exam  option  field) 
mandatory,  numeric. 


CM  m 
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Exhibit  4-10:  ECGSELEXAM4 


<ssan>  <name>  <dob>  <8ex> 

select  exam  _ 

doe  number  age  ht  wt  sbp  dbp  dx 

1 


0  none  of  the  above 


I 

I 

<race>  | 
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Chapter  4.11:  ECGSELEXAM14 

Called  From 

ECGSELEXAM  when  $DATASN  >  4 

Logic 

Retrieve  up  to  14  EXAM  records. 

Number  screen  accordingly. 

If  $DATASP  <  $DATASN, 

Issue  message:  "Press  Return  To  See  More  Records". 

If  $DATASP  -  $DATASN  and  $DATASN  >  14, 

Issue  message:  "Press  Return  To  See  Prior  Records". 

Display  screen. 

If  select  record  (SWI  for  select-exam  option  field) 

If  $DATASP  -  $DATASN, 
rewind  locate  file, 
go  to  phase  1. 

If  select  record  (SWI  for  select-exam  option  field) 
go  to  ECOIENEXAM. 

If  select  record  (SWI  for  select-exam  option  field) 
go  to  ECGMODEXAM. 

If  select  record  (SWI  for  select-exam  option  field) 
go  to  ECGINSEXAM. 

If  select  record  (SWI  for  select-exam  option  field) 
rewind  the  sibling  chain; 
retrieve  record  via  $S2KC0UNr; 
go  to  ECQIODEXAM. 

Validation 

1.  Select  record  (SWI  for  select-exam  option  field)  -  numeric 

> 


» 


> 


» 


blanlis , 


“  0, 

=  $DATASP, 
>  $DATASN, 
<  $DATASN, 
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Exhibit  4-11:  ECGSELEXAM14 


<ssan>  <name>  <dob>  <sex> 

select  exam  _ 

doe  number  age  ht  wt  sbp  dbp  dx 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 


<race> 


0  none  of  the  above 
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Chapter  4.12:  BCGUSEXAM 

Called  From 

ECGSELEXAM4,  ECGSELEXAM14.  or  ECGSELEXAM 
Logic 

1. 

If  Insert  record  (SWl  for  Insert-exam-optlon  field)  «■  N, 
go  to  EC(^NPERS. 

If  Insert  record  (SWI  for  Insert-exam-optlon  field)  »  Y, 
retrieve  last  EXAMS  record; 

Insert  EXAMS  record  after  and  go  to  ECGMODEXAM. 
Validation 


1.  Insert  record  -  oiandatory,  (YESNOTBL  table,  exists). 

2.  Same  as  ECGMODEXAM  except  only  Insert  record 
mandatory. 
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Exhibit  4-12:  BCGIKEXi^ 


<ssan>  <name>  <dob>  <sex>  <race> 


insert  exam 


doe 

yy/on/dd  number  age  ht  wt  sbp  dbp  dx 

/  / 
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Chapter  4.13:  ECGMODBXAM 
Called  From 

ECGSELEXAM4,  ECGSELEXAM14,  or  ECGINSEXAM 
Logic 

Display  screen. 

If  modify  record  (SWI  for  modlfy-exam  option  field)  -  Y, 
modify  EXAM  record; 
go  to  Phase  2. 

If  modify  record  (SWI  for  modlfy-exam  option  field)  «  N, 
go  to  ECGMENEXAM. 

Validation 

1.  doe  -  mandatory,  numeric,  year  range  55-87,  month  range 
1-12,  day  range  1-31 

2.  num  -  numeric 

3.  sbp  -  range  90-300 

4.  dbp  -  range  50-150 

5.  ht  -  range  152-203 

6.  wt  -  range  38.0-210.0 

7.  dx  -  table  (ECGDXTBL  N,V,B,A) 

8.  modify  record  (SWI  for  modlfy-exam  option  field)  Is 
mandatory  (YESNOTBL,  exists). 
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Exhibit  4-13:  ECGMOOBXAM 
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Chapter  4.14:  ECGMEWXAM 

Called  From 

ECGMODEXAM,  ECGMODDXCO,  and  ECGMOORISK. 

Logic 

1.  If  SELECTSTEP  -  0,  go  to  $EXIT. 

2.  If  SELECTSTEP  -  1,  go  to  ECGSELPERS. 

3.  If  SELECTSTEP  -  2,  go  to  ECGMENPERS. 

4.  If  SELECTYPE  -  3,  go  to  ECGSELEXAM. 

5.  If  SELECTSTEP  -  4,  go  to  ECGSELPRIOR. 

6.  If  SELECTSTEP  -  5,  go  to  ECGSELRISK. 

7.  If  SELECTSTEP  -  6,  go  to  ECGSELDXCO. 

Validation 

1.  SELECTSTEP  -  mandatory,  range  0-6 
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Exhibit  4-14;  ECGMEHEXAM 


•Cssan> 

<naiBe> 

<dob> 

<doe> 

select  next 

step 

1 

select 

new  person 

2 

select 

data  base 

3 

select 

ecg 

4 

select 

prior  names 

5 

select 

risk  factor 

6 

select 

dx  code 

0 

exit 

% 


•  •••••• 


- + 

I 

I 

<race>  1 


•+ 
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Chapter  4.15:  ECGSELPRIO 

Purpose 

The  purpose  of  this  step  is  to  select  all  PRIOR  NAMES  records  from 
the  ECG  data  base  and  to  then  display  up  to  four  occurences  If 
present.  Called  From 

ECGMENPERS 

Screen 


ECGSELPRIO. 


Logic 

Select  all  PRIOR  NAMES  records  on  SSAN. 


If  $DATASN  -  0, 

go  to  ECGINSPRIO. 

If  $DATASN  >  0, 

retrieve  up  to  4  PRIOR  NAMES  records; 
number  screen  accordingly; 

Display  screen. 

If  select  record  (SWI  for  select-prior-name-option 
go  to  ECGMENPERS. 

If  select  record  (SWI  for  select-prior-name-option 
go  to  ECGMODPRIO. 

If  select  record  (SWI  for  select-prior-name  option 
go  to  ECGINSPRIO. 

If  select  record  (SWI  for  select-prior-name-option 
rewind  sibling  chain; 
retrieve  record  via  $S2KC0UNT; 
go  to  ECGMODPRIO. 


field)  =  0, 

field)  =  SDATASP 
field)  >  $DATASN 
field)  <  SDATASN, 


Validation 


1.  Select  record  (SWI  for  select-prior-name  option  field) 
mandatory,  numeric. 


CM  m  ■>4* 
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Exhibit  4-1 S:  ECGSELPRIO  -  Select  Froa  Dp  To  4  Prior  Naaes  Records 


<8san>  <naffle>  <dob>  <8ex>  <race> 

select  prior  name  _ 


prior  name  name  modified 

1 _ /  / 


none  of  the  above 
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Chapter  4.16:  EC(3<(M)PRI0 
Called  From 
ECGINSPRIO,  ECGSELPRIO 
Log^ 

Display  screen. 

If  modify  record  (SWI  for  modlfy-prlor-name  option  field)  ■  N, 
go  to  ECGMENEXAM. 

If  modify  record  (SWI  for  modlfy-prior-name  option  field)  -  Y, 
modify  PRIOR  NAMES  record; 
gu  to  Phase  2. 

Validation 


1.  Modify  record  (SWI  for  mod ify-prior- name  option  field) 
mandatory  (YESNOTBL  table,  exists). 

2.  Prior  name  -  mandatory 

3.  Name  modified  -  proper  date  format,  mandatory 
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Exhibit  4-16:  BCOIODPRIO 


^ssan>  <name^  <dob>  <sex>  <race> 

modify  prior  name  _ 

prior  name  name  modified 

/  / 
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Chapter  4.17:  ECGIKSPRIO 
Called  From 

ECGSELPRIO;  prior  names  are  also  Inserted  automatically  In 
ECQIOOPERS 

Logic 

If  Insert  record  (SWI  for  Insert-prlor-name  option  field)  “  N, 
go  to  ECQfENPERS. 

If  Insert  record  (SWI  for  Insert-prlor-name  option  field)  »  Y, 
retrieve  last  PRIOR  NAMES  record; 

Insert  PRIOR  NAMES  record  after; 
go  to  ECGMODPRIO. 

Validation 

1.  Insert  record  (SWI  for  insert-prior-name  option  field)  - 
mandatory  (YESNOTBL  table,  exists) 

2.  Prlorname  -  alphanumeric 

3.  Name  modified  -  proper  date  format 


I 


» 


s> 


4r 


I 


I 


» 


» 


I 


» 


» 


> 


•  • 
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Exhibit  4-17;  BCGDBPRIO 


<8san^  <name>  <dob>  <8ex>  <race> 

ln8ert  prior  name  _ 

prior  name  name  modified 

_ _  /  / 
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Chapter  4.18:  ECGSELRISK 
Called  From 
ECGMENEXAM 


Logic 

Select  RISK? ACTORS  record  on  SSAN  and  EXAMS  DOE. 


If  $DATSN  -  0, 

go  to  ECGINSRISK, 

Else, 

retrieve  RISKFACTORS  record; 
go  to  ECGMODRISK. 


Screen 

None 


Note:  There  shall  be  only  one  RISK  FACTORS 
record  per  EXAMS  record  if  It  exists. 


I 


4r 


» 


» 


I 


» 


» 


•  •  • 


•  • 
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Chapter  4.19:  ECGMODRISK 

Called  From 
ECGSELRISK,  ECGINSRISK 
Logic 

Display  screen. 

If  modify  record  (SWI  for  modlfy-rlsk  option  field)  -  Y, 
modify  RISK  FACTORS  record; 
go  to  Phase  2. 

If  modify  record  (SWI  for  modlfy-rlsk  option  field)  »  N, 
go  to  ECGMENBXAM. 

Validation 

1.  tchol  -  range  75-4000,  mandatory 

2.  hdl  -  range  15-120 

3.  trig  -  range  30-4000 

4.  fbs  “  range  45-500 

5.  ppd  -  range  0.0-10.0 

6.  cigars  -  range  0-20 

7.  bowls  “  range  0-30 

8.  fm  hx  cad  -  (YESNOTBL  table,  exists). 

9.  Modify  record  (SWI  for  modlfy-rlsk  option  field) 
mandatory,  (YESNOTBL  table,  exists). 
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Exhibit  5-2:  TREADMILL  Sample  Input  Forms 
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Exhibit  4-18:  ECGMOORISK 

+_ - 

I 
I 

I  <ssan>  <name>  <dob>  <sex>  <race> 

j  <doe> 

I 

I 

1  modify  risk  _ 

I 

I  tchol  hdl  trig  fbs  pecks/day  cigars  pipes 

I 

I 

I  fm  hx  cad  risk 


I 
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Chapter  4.20:  ECGDBRISK 
Called  From 


ECGSELRISK 

Logic 

Purge  RISK? ACTOR  record. 

Display  Screen. 

If  Insert  record  (SWI  for  Insert-risk  option  field)  *  Y, 

Insert  RISKFACTOR  record; 
go  to  ECGMODRISK. 

If  Insert  record  (SWI  for  Insert-risk  option  field)  •  N, 
go  to  ECGMENEXAM. 

Validation 

1.  Insert  record  (SWI  for  insert-risk  option  field) 
mandatory,  (YESNOTBL  table,  exists). 

2.  Same  as  ECGMODRISK  1  through  8  except  tchol  not  mandatory. 
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Exhibit  4-19:  BCGIBRISK 

+_ - 


<ssan>  <nanie>  <dob>  <sex> 

<doe> 

Insert  risk  _ 

tchol  hdl  trig  fbs  packs/day  cigars  pipes 
fm  hx  cad  risk 


<race> 


I 
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Chapter  4.21:  BCG8EL0ZC0 
Called  Froa 
ECOIENEXAM 
Logic 

1.  Select  DXCODE  records  on  SSAN  and  EXAMS  DOE. 

2.  If  $DATASN  -  0,  go  to  ECGINSDXCO. 

3.  If  $DATASN  >  0  and  <  5,  go  to  ECGSELDXC04. 

4.  If  $DATASN  >4,  go  to  ECGSELDXC014. 

Screen 

None 


Chapter  4.22:  ECGSELDXC04 

Called  From 


ECGSELDXCO  If  $DATASN  <  5 
Logic 

1.  Retrieve  up  to  four  DXCODE  records,  number  screen 
accordingly,  and  display. 

2.  If  select  record  (SWI  for  select-dxcode  option  field)  "  0, 
go  to  ECGMENEXAM. 

3.  If  select  record  (SWI  for  select-dxcode  option  field)  ■ 

$DATASP,  go  to  ECGMODDXCO. 

4.  If  select  record  (SWI  for  select-dxcode  option  field)  > 

$DATASN,  go  to  ECGINSDXCO. 

5.  If  select  record  (SWI  for  select-dxcode  option  field)  ^ 

$DATASN,  rewind  sibling  chain,  retrieve  record,  and  go  to 
ECGMODDXCO. 

Validation 


1.  Select  record  (SWI  for  select-dxcode  option  field) 
numeric,  range  0-5,  mandatory. 


I 

* 

m 

» 

♦ 


<s8an>  <name>  <dob>  <8ex>  <race> 

<doe> 

select  dxcode  _ 

sam 

1 

2 

3 

4  _ 

0  none  of  the  above 
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Exhibit  4-20:  BCGSBLDZC04 
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Chapter  4.23:  ECGSEL0XC014 
Called  From 


ECGSELDXCO  if  $DATASN  >  4 


Logic 

Retrieve  up  to  14  DXCOOE  records. 

Number  screen  ac^'ordlngly . 

If  $DATASP  <  $DATASN, 

issue  message:  “Press  Return  To  See  More  Records". 
If  $DATASP  -  $DATASN  and  $DATASN  >14, 

issue  message:  “Press  Return  To  See  Prior  Records". 


Display  screen. 


If  select  record  (SWI  for  select-dxcode  option  field) 
If  $DATASP  -  $DATASN, 


rewind  locate  file, 
go  to  1 . 

If  select  record  (SWI  for  select-dxcode  option  field) 
go  to  ECGMENEXAM. 

If  select  record  (SWI  for  select-dxcode  option  field) 
go  to  ECGMODDXCO. 

If  select  record  (SWI  for  select-dxcode  option  field) 
go  to  ECGINSDXCO. 

If  select  record  (SWI  for  select-dxcode  option  field) 
rewind  sibling  chain; 
retrieve  record  via  $S2KC0UNr; 
go  to  ECGMODDXCO. 

Validation 


1.  Select  record  (SWI  for  select-dxcode  option 
numeric. 


=  blanks, 

=  0, 

=  $DATASP, 
>  SDATASN, 
<  SDATASN, 

field) 
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Exhibit  4-21:  ECGSELDXC014 


<ssan> 

<doe> 

select  dxcode 

1 
2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 


<name> 


sam 


<dob> 


<sex> 


<race> 


0  none  of  the  above 


Page  4-45 
Chapter  4.24 
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Chapter  4.24:  ECGMODXCO 

Called  From 

ECGINSDXCO,  ECGSELDXC04,  ECGSELDXC014 
Logic 

Display  screen. 

If  modify  record  (SWI  for  modlfy-dxcode  option  field)  =•  Y, 
modify  DXCODE  records; 
go  to  Phase  2. 

If  modify  record  (SWI  for  modlfy-dxcode  option  field)  =  N, 
go  to  ECGMENEXAM. 

Validation 


1.  modify  record  (SWI  for  modlfy-dxcode  option  field)  - 
mandatory  (YESNOTBL  table,  exists). 

2.  sam  -  use  ECGCODESTBL  for  editing  three  character 
abbreviation  to  long  values,  then  validate  on  long  values. 


•  •  • 
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Exhibit  4-22;  ECOIODDXCO 


<ssan>  <name> 

<doe'> 

modify  dxcode  _ 


sam 
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Chapter  4.25:  ECGIMSDXCO 

Called  From 


ECGINSDXCO,  ECGSELDXC04,  ECGSELDXC014 
Logic 

If  Insert  record  (SWI  for  insert-dxcode  option  field)  •  N, 
go  to  ECGMENEXAM. 

If  Insert  record  (SWI  for  insert-dxcode  option  field)  =  Y, 
retrieve  last  DXCODE  record; 

Insert  DXCODE  record  after; 
go  to  ECGMODDXCO. 

Validation 


1.  Insert  record  (SWI  for  Insert-dxcode  option  field)  - 
mandatory  (YESNOTBL  table,  exists). 

2.  sam  -  use  ECGCODESTBL  for  editing  three  character 
abbreviation  to  long  values,  then  validate  on  long  values. 


•  • 


•  • 


•  •  •  '  • 
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Exhibit  4-23:  ECGISSDXCO 


<ssan>  <name>  <dob>  <sex>  <race> 

<doe> 

Insert  dxcode 


sam 


» 


> 


» 


»  I 


> 
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PART  5:  TREAmiLL  DATA  BASE 


♦ 


The  TREAMIILL  (TM)  data  base  contains  a  PERSON  record  and  data 

associated  with  several  different  types  of  treadmill  exams.  The  TM 

part  of  the  transaction  allows  selection  of  persons  within  the  > 

TREADMILL  data  base  and  if  located,  the  Insertion  and  modification 

of  treadmill  exam  data.  The  TREADMILL  data  base  definition  Is 

shown  in  Exhibit  5-1  followed  by  the  primary  data  Input  form  In 

Exhibit  5-2.  The  steps  that  perform  updates  to  the  TREADMILL  data 

base  are  presented  in  the  following  chapters. 


» 


« 


•  • 


•  • 


•  • 


V  , 
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Exhibit  5-1:  HlBillMILL  Data  Base  Definition 


■SYSTEM  RELEASE  NUMBER  R3.0 
DATA  BASE  NAME  IS  TREADMILL 
DEFINITION  NUMBER  3  ' 

DATA  BASE  CYCLE  2 
0*  PERSON 

1*  SSAN  (CHAR  X(9)) 

2*  NAME  (CHAR  X<1'?)) 

3*  DOB  (DATE) 

4*  SEX  (NON-KEY  CHAR  X) 

5*  EXAMS  (RECORD) 

6*  DOE  (DATE  IN  5) 

7*  TIME  (NON-KEY  INTEGER  NUMBER  9999  IN  5) 

•8*  AGE  (INTEGER  NUMBER  99  IN  5) 

9#  GRADE  (CHAR  XXX  IN  5) 

10»  ■  TITLE  (NON-KEY  CHAR  XXX  IN  5) 

11*  TYPE  (NON-KEY  CHAR  X  IN  5) 

12»  CASE  NO  (INTEGER  NUMBER  9(5)  IN  5) 

13*  HRS  SINCE  LAST  MEAL  (NON-KEY  INTEGER  NUliEER  •'■'9  IN  5) 

14*  HT  (NON-KEY  INTEGER  NUMBER  999  IN  5) 

15*  WT  (NON-KEY  DECIMAL  NUMBER  999.9  IN  5) 

16*  EXERCISE  TIME  (NON-KEY  INTEGER  NUMBER  9''''''9  IN  5) 

17*  DOUBLE  PRODUCT  (NON-KEY  INTEGER  NUMBER  ■'>(5)  IN  5) 

13*  POTASSIUM  (NON-KEY  DECIMAL  NUMBER  9.9  IN  5) 

19*  HX  HBP  (NON-KEY  CHAR  X  IN  5) 

20*  ANT  I HYPERTENSIVES  (NON-KEY  CHAR  X  IN  5) 

21*  ACTIVITY  STATUS  (NON-KEY  INTEGER  NUMBER  9  IN  5) 

22*  AEROBIC  HRS  PER  WEEK  (NON-KEY  DECIMAL  NUMBER  99.9  IN  5) 
24*  VITALS  (RECORD  IN  5) 

25*  ; ACTIVITY  (NON-KEY  CHAR  XXX  IN  24) 

26*  'minute  (NON-KEY  INTEGER  NUMBER  99  IN  24) 

27*  SBP  (NON-KEY  INTEGER  NUMBER  999  IN  24) 

■  28*  DBF  (NON-KEY  INTEGER  NUMBER  999  IN  24) 

29*  HR  (NON-KEY  INTEGER  NUMBER  999  IN  24) 

30*  STOP  REASONS  (RECORD  IN  5) 

31*  STOP  REASON  (CHAR  X(6)  IN  30) 

32*  FINDINGS  (RECORD  IN  5) 

36*  INTERPRETATION  (CHAR  X(6)  IN  32) 

37*  ABN  BP  RESPONSE  (NON-KEY  CHAR  X  IN  32) 

3S*  ARRHYTHMIAS  (RECORD  IN  32) 

39*  ARRHYTHMIA  (CHAR  X(6)  IN  33) 

391*  ONSET  (CHAR  X(6)  IN  33) 

392*  FREQUENCY  (CHAR  X(6)  IN  33) 

40*  REPOLARIZATIONS  (RECORD  IN  32) 

41*  LEAD  (CHAR  X(6)  IN  40) 

441*  PERIOD  (CHAR  X(6)  IN  40) 

442*  REPOLARIZATION  (CHAR  X(A)  IN  40) 

42*  ECO  CODES  (RECORD  IN  32) 

43*  ECO  CODE  (CHAR  X(6)  IN  42) 


I 


» 


I 


I 


» 


I 


» 


» 


» 
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♦ 


Chapter  5.1:  TMSELPERS 

Purpose  I 

When  a  person  is  selected  from  ECG  and  then  rhe  TREADKILL  data  base 
Is  chosen,  TMSELPERS  Is  called  and  first  determines  whether  the 
person  exists  in  the  TREADMILL  data  base.  If  the  person  exists, 

TMSELPERS  calls  TMSELEXAM.  Otherwise  TMSELPERS  calls  TMINSPERS. 

Called  From 

TMSELPERS  is  called  from  ECGMENPERS  (data  base  menu).  I 

Logic 

Select  TMPERSOH  record  on  SSAN. 

If  $DATASN  -  0, 

go  to  TMINSPERS. 

If  $DATASN  -  1, 

go  to  TMSELEXAM. 

Validation 
None. 


Chapter  5.2:  TMINSPERS 
Purpose 

The  pupose  of  TMINSPERS  is  to  allow  the  user  the  option  to  insert  a 
new  PERSON  (TMPERSON)  record  into  the  TREADMILL  data  base. 

Called  From 

TMSELPERS  (when  no  person  exists  in  the  TREADMILL  data  base).  I 

Screen 

TMINSPERS 

Logic 

Move  PERSON  values  to  TMPERSON. 

Display  TMINSPERS. 

If  insert  record  (SWI  for  insert-person  option  field)  =  Y,  I 

Insert  TMPERSON  after, 
go  to  TMSELEXAM. 

If  Insert  record  (SWI  for  insert-person  option  field)  =  N, 
go  to  ECGMENPERS. 

Validation 

The  insert-person  option  field  (SWI  is  insert  record)  is  mandatory  I 

( TABLE- YE SNOTBL,  exists) 

All  other  fields  are  protected.  The  transaction  inserts  a  record 
containing  fields  with  identical  data  to  ECG  PERSON  data  or  none  at 
all. 

» 


t 


•  • 


i 
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1.  All  Fields  are  protected  except  the  ' Insert-person'  option  field. 

2.  The  SWI  name  for  the  'insert-person'  option  field  is  insert 
record. 


•  ••••••• 
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Chapter  5.3:  TMSELEXAH 

Purpose 

The  pupose  of  TMSELEXAM  to  decide  if  there  are  0,  more  than  4,  or 
between  1  and  4  (Inclusive)  EXAMS  (TMEXAM)  records  in  the  TREADMILL 
data  base.  If  there  are  no  EXAMS  records,  TMIMSEXAM  is  called;  if 
there  are  between  1  and  4  (Inclusive)  EXAMS  records,  TMSELEXAM4  is 
called;  if  there  are  more  than  4  EXAMS  records,  TMSELEXAM14  is 
called;  There  are  no  screens  associated  with  this  step. 

Called  From 


TMINSPERS  (when  TM-PERSON  with  SSAN  is  located  in  TREADMILL  or  from 
the  FINDINGS  menu  (TMMENFIND)) . 

Screen 


None 

Logic 

Select  EXAMS  records  on  SSAN. 

If  NODATA, 

go  to  TMINSEXAM. 

If  0  <  $DATASN  <  4 , 

go  to  TMSELEXAM4. 

If  $DATASN  >  4, 

go  to  TMSELEXAM14. 

Note:  TMSELEXAM4  is  identical  to  TMSELEXAM14 

except  that  it  only  retrieves  up  to  4  exams 
Instead  of  14  at  a  time) . 
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Chapter  5.4:  1MSELEXAM4 

Purpose 


The  pupose  of  TMSELEXAM4  is  to  present  up  to  four  EXAMS  records  to 
the  user.  The  user  may  either  select  an  existing  exam  for  review 
or  modification,  choose  to  insert  a  new  exam,  or  exit  to  choose 
another  person. 

Called  From 


This  step  Is  entered  from  TMSELEXAM  (when  0  <  $DATASN  <  4). 

Screen 

TMSELEXAM4 

Logic 

1.  Retrieve  up  to  four  TMEXAM  records,  number  screen 

accordingly,  and  display. 

2.  If  'select  record'  (SWI  for  select-exam  option  field)  - 

a)  'O',  go  to  ECGMENPERS. 

b)  'n',  where  n  -  $DATASP,  go  to  TMMODEXAM. 

c)  'n',  where  1  n^  $DATASN,  rewind  the  TMEXAM  sibling 

chain  and  retrieve  the  nth  record  via  $S2KC0UNT.  Go  to 
TMMODEXAM. 

d)  'n',  where  n  >  $DATASN,  go  to  TMINSEXAM. 

Validation 


1.  The  select-exam  option  field  (SWI  select  record) 
mandatory,  range  0-5. 


I 


» 


> 


► 


» 


t 


•  • 


^  CO  M 
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Exhibit  5-4:  TMSELEXAM4  Screen  -  Select  4  Exams  From  f&EAOHILL 


- + 

I 

I 

<dob>  <sex>  <race>  1 


doe  age  time 

/  / 


0  none  of  the  above 


<ssan>  <name> 

select  j'?am  _ 

type  case  no 

1 


1.  All  data  on  the  screen  is  protected  except  for  the  ' select-exam' 
option  field. 

2.  The  SWI  name  for  the  'select-exam'  option  field  is  select  record. 

3.  The  ntunbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


•  ••••••• 
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Chapter  5.5:  TMSELEXAMI4 

Purpose 

To  present  the  user  with  treadmill  EXAMS  (TMEXAM)  records  up  to  14 
at  a  time  for  the  current  person.  The  user  may  select  an  exam  for 
review  or  modification,  choose  to  Insert  a  new  exam,  or  exit  to 
select  another  person. 

Called  From 

This  step  Is  called  from  TMSELEXAM  (when  more  than  4  TMEXAM  records 
are  located  for  a  particular  person). 

Screen 
TMSELEXAM 14 

Logic 

1.  Retrieve  up  to  14  TMEKAK  records,  number  screen  accordingly, 
and  display. 

If  $DATASP  <  $DATASN,  then  issue  message:  "Press  Return  To 
See  More  Records". 

If  $DATASP  =  $DATASN  and  $DATASN  >14,  then  issue  message: 
"Press  Return  To  See  Prior  Records". 

2.  If  'select  record'  (SWI  for  select-exam  option  field)  is 

a)  blanks,  then  If  $DATASP  =  $DATASN,  rewind  locate  file. 
In  either  case,  go  to  1. 

b)  'O'  ,  go  to  ECGMENPERS. 

c)  ' n' ,  where  n  “  $DATASP,  and  go  to  TMMODEXAM. 

d)  '  n' ,  where  1  ^  $DATASN,  rewind  the  sibling  chain, 

retrieve  the  nth  record  via  $S2KC0UNT,  and  go  to 
TMMODEXAM. 

e)  'n',  where  n  >  $DATASN,  go  to  TMINSEXAM. 

Validation 

1.  The  select-exam  option  field  (SWI  select  record)  -  numeric, 
if  present. 
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Exhibit  5-5:  TMSEUSXAMIA  Screen  -  Select  14  Exams  From  TREADMILL 


<ssan> 
select  exam 


<name> 


type 


case  no 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 


0  none  of  the  above 


doe 

/  / 


<dob>  <sex>  <race> 


age  time 


1.  This  screen  Is  identical  to  TMSEI£XAM4  except  that  it  will 
accommodate  up  to  14  exams  per  screen. 

2.  All  data  on  the  screen  Is  protected  except  for  the  ' select- exam' 
option  field. 

3.  The  SWI  name  for  the  'select-exam'  option  field  Is  select  record. 

4.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


•  •  •  • 
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Chapter  5.6:  ntfODBXAM 

Purpose 

To  allow  the  user  to  modify  an  existing  treadmill  EXAMS  (THEXAM) 
record. 

Called  From 

This  step  is  called  when  an  exam  is  selected  from  TMSELEXAMA  or 
TMSEI£XAM14,  or  Immediately  after  an  exam  is  entered  through 
TMIMSEXAM. 

Screen 

TMMODEXAM 

Logic 

1.  If  'modify  record'  (SWI  for  modif3r-exam  option  field)  »  N, 

go  to  TMMENEXAM. 

2.  If  'modify  record'  (SWI  for  modify-exam  option  field)  »  Y, 

validate  DOE  $DATE,  AGE  against  DOB  and  DOE  if  DOB  present. 
If  these  tests  fall, 

ring  bell  and  issue  standard  error  message, 
go  to  Phase  2. 

HOTB:  These  are  Phase  3  validation  tests  and  not  VALIDATE 

commands  in  Phase  2. 

3.  If  these  tests  (above)  pass,  issue  a  modify  command  and  go 
to  Phase  2. 

Validation 

1.  Grade  -  mandatory,  table  (GRADETAB:  EOl  >  E09,  WOl  >  W04 
and  oOl  >  ol  0 ) . 

Note:  o  is  alphabetic 
0  is  zero 

2.  Type  -  mandatory,  table  (TYPETBL:  A,  B,  C,  D,  E,  K,  M,  P 
and  T ) . 

3.  Case  //  -  mandatory,  range  (1-25000). 

4.  Age  -  mandatory,  range  (17-70). 
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Validation  (continued) 

5.  Time  -  mandatory,  range  (700-1700). 

Partial  field  HRS  with  range  (7-17). 
Partial  field  MIN  with  range  (0-59). 

6.  Hours  since  last  meal  -  mandatory,  range  (0-48). 


7. 

Ht 

-  mandatory. 

range 

(152-203). 

8. 

Wt 

-  mandatory. 

range 

(38.0-210.0). 

9. 

K+ 

-  mandatory. 

range 

(3. 0-6.0). 

10.  Antihypertensive  -  mandatory,  table  (YESNOTBL,  exists) 

11.  Activity  status  -  mandatory,  range  (1-3). 

12.  Modify  record  -  mandatory,  table  (YESNOTBL,  exists) 
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Exhibit  5-6:  UMODEXAM  Screen  -  Modify  Exaa  In  TREADMILL 


<88an>  <name> 

modify  exam  _ 

grade  type  case  # 


<dob> 


doe 

/  / 


age 


<sex> 


time 


<race> 


hrs  since 
last  meal 


ht 

cm 


wt 

kgpi 


total 

time 


double 

product 


antihypertensive 


activity  status 


1.  All  fields  designated  via  are  input  fields  and  thus  high 

Intensity  and  unprotected,  except  for  'total  time'  and  'double 
product'  which  are  protected. 

2.  All  fields  under  prompts  ere  DBIs  except  doe  and  time  which  are 
SWIs  for  validation.  They  are  then  concatenated  into  the  final 
DBI. 

3.  Protected  fields  Include  first  row,  'total  time',  and  'double 
product';  'total  time'  and  'double  product'  are  calculated  by 
TMMODVITALS. 
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I 


I 


i 


I 


I 


> 


I 


I 


•  • 


•  • 
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Chapter  5.7:  TMIKSBXAM 


Purpose 

To  allow  the  user  to  Insert  a  new  treadmill  EXAMS  (TMEXAM)  record 
for  the  current  person. 

Called  From 

This  step  Is  entered  when  the  user  enters  an  Integer  larger  than 
the  highest  record  number  In  TMSELEXAM4  or  TMSELEXAM14.  This  step 
Is  also  entered  If  the  person  had  no  TREADMILL  exams  (Including  the 
case  where  the  person  was  just  entered  Into  the  TREADMILL  data 
base) . 

Screen 

TMINSEXAM 

Logic 

Purge  the  TMEXAM  data  to  Insure  a  blank  screen. 

Display  the  screen. 

If  Insert  record  (SWI  for  Insert-exam  field  option)  “  N, 

If  $DATASN  -  0, 

go  to  ECGMENPERS. 
go  to  TMSELEXAM. 


If  Insert  record  (SWI  for  Insert-exam  field  option)  ”  Y, 

validate  DOE  ^  $DATE,  AGE  against  DOB  and  DOE  If  DOB  present. 
If  these  "tests"  fall, 

ring  bell  and  Issue  standard  error  message; 
go  to  Phase  2. 

If  these  "tests"  pass, 

retrieve  last  EXAMS  record; 

Insert  EXAMS  record  after; 
go  to  TMMODEXAM. 

NOTE:  "Tests"  are  Phase  3  validation  tests 
and  not  VALIDATE  commands  In  Phase  2. 


Validation 


1.  Same  as  for  TMMODEXAM,  except  all  DBI  fields  are  optional. 

2.  The  Insert-person  option  field  (SWI  is  Insert  record)  Is 
mandatory,  table  (YESNOTBL,  exists) . 


I 


I 


I 


» 


I 


» 


» 


» 


» 
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Exhibit  5-7 ;  IMZIISIXAM  Screen  -  Insert  Exam  In  TU/UMILL 


<88an>  <naiBe>  <dob>  <sex>  <race> 

inaert  exan  _ 

grade  type  case  #  doe  age  tine 

_  _  _ 

hrs  since  ht  wt  total  double 

last  meal  cm  kgn  time  product 

Icf  antihypertensive  activity  status 


1.  All  fields  designated  via  are  Input  fields  and  thus  high 

Intensity  and  unprotected,  except  for  'total  time*  and  'double 
product'  which  are  protected. 

2.  All  fields  under  prompts  are  DBIs  except  doe  and  time  which  are 
SWIs  for  validation.  They  are  then  concatenated  Into  the  final 
DBI. 

3.  Protected  fields  Include  first  row,  'total  time',  and  'double 
product';  'total  time'  and  'double  product'  are  calculated  by 
TMMODVITALS  when  present. 

4.  The  Insert-exam  option  field  (SWI  name  is  Insert  record)  Is 
unprotected. 
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Chapter  5.8:  IMSELVXIAL 
Purpose 

This  step  determines  If  there  are  0,  more  than  4,  or  between  1  and 
four  (Inclusive)  VITALS  records.  If  there  are  0,  TMINSVITAL  Is 
called  to  allow  the  user  to  Insert  a  record;  if  there  are  between  1 
and  4  (inclusive)  VITALS  records,  TMSELVITAL4  is  called  to  present 
up  to  4  VITALS  records:  If  there  are  more  than  4  VITALS  records, 
TMSELViXALl4  is  called  to  present  for  the  user  VITALS  records  up  to 
14  at  a  time.  This  step  has  no  screen  associated  with  it. 

Called  From 

The  TMSELVITAL  step  is  called  from  TMMENEXAM. 

Screen 


None. 

Logic 

Select  VITALS  records  on  SSAN  and  DOE. 

If  NODATA, 

go  to  TMINSVITAL. 

If  0  <  SDATASN  <  4, 
go  to  TMSELVITAL4. 

If  $DATASN  >  4, 

go  to  TMSELVITAL14 

NOTE;  TMSELVITAL14  is  identical  to  TMSELVITAL4  except  it  uses  the 
TMSELVITAL14  screen  and  retrieves  up  to  14  vitals  at  a  time. 

Validation 


None 
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Chapter  5.9:  TMSELVmLA 

Purpose 

The  purpose  of  the  TMSELVTTAL4  step  is  to  present  up  to  four  VITALS 
records  to  the  user,  ordered  by  the  DOE  in  the  parent  record.  The 
user  can  then  select  an  existing  record  for  review  or  modification, 
choose  to  insert  a  new  record,  or  exit  to  a  menu. 

Called  From 

The  TMSELVITAL4  step  is  called  from  TMSELVITAL  (when  0  <  $DATASN  < 

4). 

Screen 


I 


♦ 


I 


% 


TMSELVITAL4 

I 

Logic 

1.  Retrieve  up  to  4  VITALS  records,  number  screen  accordingly, 
and  display. 

2.  If  'select  record'  (SWI  for  select-vitals  option  field)  is:  ►  ® 

a)  'O'  ,  go  to  TMMENEXAM. 

b)  'n',  where  n  •  $DATASP,  go  to  TMMODVITAL. 

c)  '  n' ,  where  1  n£  $DATASN,  rewind  the  VITALS  sibling  * 

chain,  retrieve  the  nth  record  via  $S2KC0UNT,  and  go  to 
TMMODVITAL. 

d)  'n',  where  n  >  $DATASN,  go  to  TMINSVITAL. 

Validation  ► 

1.  Select  vitals  is  mandltory,  numeric. 

2.  All  other  fields  are  protected. 


I 


I 


•  • 


•  •  • 


- . —  ■  -  ■■■'  
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Exhibit  5-8;  TMSELVrtAL4  Screen  -  Select  4  Vitale  Pro*  TMADHILL 


<ssaa>  <naae> 

<type>  <case  #>  <doe> 

select  vitals  _ 

ac  t  min  sbp 

1  _  _  _ 

2 

3 

4 

0  none  of  the  above 


1.  This  screen  displays  up  to  4  VITALS  records  for  the  exam 
identified  on  row  2. 

2.  The  numbers  to  the  left  of  the  records  are  SWIs  that  are  computed 
by  the  step  logic.  They  appear  only  when  a  record  fills  that 
slot  else  there  are  blanks  in  their  place. 

3.  All  fields  are  protected  except  for  the  select-vitals  option 
field  (SWI  is  select  record). 


<dob>  <8ex>  <race> 

<age>  <time> 


dbp  hr 
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Chapter  5.10:  lMSBLVmL14 
Purpose 

This  step  displays  up  to  14  VITALS  records  for  the  current  exaa. 
The  user  can  page  through  more  records,  select  a  numbered  record 
for  review  or  modification,  choose  to  Insert  a  new  record,  or  exit 
to  choose  another  exaa. 

Called  Proa 

The  TMSELVITAL14  step  Is  called  from  TMSELVITAL  (when  more  than 
four  VITALS  records  are  selected). 

Screen 

TMSELVITAL14 

Logic 

1.  Retrieve  up  to  14  VITALS  records,  number  screen  accordingly, 
and  display. 

If  $DATASP  <  $DATASN,  then  issue  message:  "Press  Return  To 
See  More  Records" . 

If  $DATASP  -  SDATASN  and  $DATASN  >  14,  then  issue  message: 
"Press  Return  To  See  Prior  Records”. 

2.  If  'select  record'  (SWI  for  select-vitals  option  field)  is 

a)  blanks,  then  if  $DATASP  -  $DATASN,  rewind  locate  file. 
In  either  case,  go  to  1. 

b)  'O',  go  to  TMMENEXAM. 

c)  'n',  where  n  =•  $DATASP,  go  to  TMMODVITAL. 

d)  'n',  where  1  £  n  <  $DATASN,  rewind  the  VITALS  sibling 
chain  and  retrieve  the  nth  record  via  $S2KC0UNT.  Go  to 
TMMODVITAL. 

e)  'n',  where  n  >  $DATASN,  go  to  TMINSVITAL. 

Validation 

1.  Select  vitals  -  numeric. 


2.  All  ocher  fields  are  protected 
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Exhibit  5-9:  mSELVITALlA  Screen  -  Select  14  Vitale  Frae  TMADMILL 


<ssan>  <name> 

<type>  <case  #>  <doe> 


<dob> 

<age>  <tlae> 


<sex> 


<race> 


select  vitals 


act 


min 


sbp 


dbp  hr 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 


0  none  of  the  above 


1.  This  screen  displays  up  to  14  TMVITAL  records  for  the  exam 
Identified  on  row  2  of  the  screen. 

2.  The  numbers  to  the  left  of  the  records  are  SWIs  that  are  computed 
by  the  step  logic  as  the  records  are  retrieved.  They  appear  only 
when  a  record  fills  that  slot,  else  there  are  blanks  in  their 
place. 

3.  All  fields  are  protected  except  for  the  select-vitals  option 
field  (SWI  is  select  record). 
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Chapter  5.11:  TMIODVITALS 

Purpose 

To  allow  the  user  to  modify  existing  VITALS  records. 

Called  From 

This  step  is  entered  from  TMSELVTTAL4  or  TMSELVITAL14  when  the  user 
selects  the  number  of  an  existing  record  (0  <  select  record  < 

$DATASN)  or  from  TMINSVITAL  to  allow  the  user  to  modify  a  record 
just  inserted. 

Screen 

TMMODVITAL 

Logic 

1.  If  the  modlfy-vltals  option  field  (SWI  is  modify  record)  is 
’N',  go  to  TMMENEXAM. 

2.  Else  if  'activity*  =  'mx' ,  set  'total  time'  =»  'min'  with  two 
least  significant  digits  filled  with  zero,  calculate  'double 
product'  -  'sbp'  *  'hr*,  and  modify  the  TMEXAM  ('total  time' 
and  'double  product')  record. 

3.  Modify  VITALS  record. 

4.  Go  to  Phase  2. 

Validation 

1.  Act  -  mandatory,  table(TMACTTBL:  SUP,STD,HV,EX,MX,REC) . 

2.  Min  -  mandatory,  range  (0-24). 

3.  Sbp  -  range  (80-300). 

4.  Dbp  -  range  (0-180). 

5.  Hr  -  mandatory,  range  (20-250). 

6.  The  modlfy-vitals  field  option  (SWI  is  modify  record)  is 
mandatory  and  must  be  Y  or  N  (validated  against  YESNOTBL). 


I 


I 


•J 


Ar 


» 


I 


I 


> 


» 


I 


» 


I 


•  • 


•  •  • 


w 


1 
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Exhibit  5-10:  TMMODVTEAL  Screen  -  Modify  Vltads  in  TREADMILL 


1.  First  two  rows  are  protected. 

2.  The  'modlfy-vltals'  option  field  (SWI  is  modify  record)  is 
mandatory. 
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Chapter  5.12:  TMIHSVTIAL 
Purpose 

To  allow  the  user  to  Insert  new  VITALS  records  for  the  current 
exam. 

Called  From 

This  step  Is  entered  from  TMSELVITAL  when  no  existing  records  occur 
or  from  TMSELVITALA  or  TMSELVITAL14  If  the  user  selects  to  Insert  a 
new  record. 

Screen 

TMINS  VITAL 

Logic 

1.  Purge  the  VITALS  data  and  display  the  screen. 

2.  If  the  Insert-vltals  option  field  (SWI  is  insert  record)  is 
'N',  go  to  IMMENEXAM. 

3.  Else,  Issue  an  Insert  TMVITAL  after  and  go  to  TMMODVITAL- 
Valldatlon 

1.  Same  as  for  TMMODVITAL,  except  all  DBI  fields  are  optional. 

2.  Insert  record  (SWI  for  insert-vitals  option  field)  mandatory 
(TESNOTBL,  exists). 


TT 


•j 


♦ 


I 


i 


I 


•  • 
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Exhibit  5-11:  TMIIISVIT4L  Screen  -  Insert  Vitals  In  TREADMILL 


<ssan> 

<type> 

<name> 

<case  #>  <doe>  <age> 

<dob> 

<time> 

<sex> 

<race> 

Insert 

vitals  _ 

act 

rain  sbp  dbp  hr 

1.  First  two  rows  are  protected. 

2.  The  'insert-vitals'  option  field  (SWI  is  insert  record)  is 
unprotected. 
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Chapter  5.13:  TMMENEXAM 

Purpose 

This  step  gives  the  user  a  choice  of  what  to  do  next.  The  user  can 
work  with  VITALS  records  again  or  process  STOP  REASONS  or  FINDINGS 
records.  Additionally,  it  gives  the  user  the  flexibility  to  return 
to  any  level  above  this  step  in  the  transaction  hierarchy. 

Called  From 


This  step  is  called  from  TMMODEXAM  when  'N*  is  entered  in  the 
modlfy-exam  option  field  (SWI  is  modify  record)  and  can  be  entered 
from  all  lower  level  menus  and  steps  that  process  VITALS,  FINDINGS, 
and  STOP  REASONS  records  (TMSELVITAL4,  TMSELVITAL14,  TMINSVITAL, 
TMMENFIND,  etc.) 

Screen 

TMMENEXAM 

Logic 


If 

the 

'  select 

next  step' option  field 

a) 

go 

to 

ECGSELPERS. 

b) 

*2*. 

go 

to 

ECGMENPERS. 

c) 

•3’, 

go 

to 

TMSELEXAM. 

d) 

*4', 

go 

to 

TMSELVITAL. 

e) 

•5', 

go 

to 

TMSELSTOPR. 

f) 

•6’, 

go 

to 

TMSELFIND. 

8) 

'O'. 

go 

to 

$EX1T. 

Validation 


1 


SELECTSTEP  mandatory,  range  0-6. 
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Exhibit  5-12:  TMMENEXAM  Screeo  -  TREADMILL  Exaa  Menu 


<ssan>  <name>  <dob> 

<type>  <case  #>  <doe>  <age>  <tlme> 

select  next  step 


1 

select 

new  person 

2 

select 

data  base 

3 

select 

exam 

4 

select 

vitals 

5 

select 

stop  reasons 

6 

select 

findings 

0 

exit 

<sex>  <race> 


•  •  • 


•  • 
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Chapter  5.14:  TMSELSTOPR 

Purpose 

To  display  up  to  four  existing  STOP  REASONS  records  for  the  current 
exam  and  allow  the  user  to  select  one  for  modification  or  choose  to 
enter  a  new  record. 

Called  From 

This  step  is  entered  from  TMMENEXAM  when  the  user  enters  '5'  for 
'select  next  step*. 

Screen 

TMSELSTOPR 

Logic 

Select  STOP  REASON  records  on  SSAN  and  DOE. 

If  NODATA, 

go  to  TMINSSTOPR. 

Retrieve  up  to  four  STOP  REASONS  records. 

Ntunber  screen  accordingly. 

Display  screen  with  up  to  four  STOP  REASON  records. 

If  the  user  sets  'select  stop  reason'  option  field  to: 

0  ,  go  to  TMMENEXAM. 
n  ,  where  n  ■  $DATASP, 
go  to  TMMODSTOPR. 
n  ,  where  1  ^  ^  $DATASN, 

rewind  the  STOP  REASONS  sibling  chain; 
retrieve  the  nth  record  via  $S2KC0t/NT; 
go  to  TMMODSTOPR. 
n  ,  where  n  >  $DATASN, 
go  to  TMINSSTOPR. 

Validation 

The  select  record  (SWI  for  select-stop-reasons  option  field)  option 
field  is  mandatory,  range  0-5. 


•  •  • 
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Exhibit  5-13:  TMSBLSTOPR  Screen  -  Select  Stop  Reasons  in  TREADMILL 


1.  All  of  the  fields  on  this  screen  are  protected  except  for  the 
select  record  (SWI  for  the  select-stop- reason  option  field). 

2.  There  will  never  be  more  than  4  stop  reasons  so  this  screen  will 
not  repeat. 


•  • 
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Chapter  5.15:  TMtODSTOPR 
Purpose 

To  allow  the  user  to  modify  an  existing  STOP  REASONS  record. 

Called  From 

This  step  Is  entered  when  an  existing  record  is  selected  In 
TMSELSTOPR  or  after  a  new  record  Is  Inserted  in  TMINSSTOPR. 

Screen 

TMMODSTOPR 

Logic 

1.  If  the  user  enters  'Y *  to  'modify  stop  reason'  (SWI  is 
modify  record),  modify  STOP  REASONS  and  go  to  Phase  L. 

2.  Else,  go  to  TMMENEXAM. 

Validation 


1.  The  modify-stop-reason  option  field  (SWI  is  modify  record) 
is  mandatory  and  must  be  validated  (YESNOTBL,  exists). 

2.  Stop  reason  is  mandatory,  table  (TMSTOPRTBL,  table  edit  and 
table  validate  -  edit  on  input,  search  COLl,  replace  with 
C0L2,  then  validate  on  C0L2). 

TMSTOPRTBL 

COLl  COL 2 

A  A  -  EXHAUSTION 

B  B  -  LEG  FATIGUE 

C  C  -  JOINT /MUSCLE /PAIN  OR  INJURY 

D  D  -  CHEST  PAIN 

E  E  -  SUB  MAX  EFFORT  BECAUSE  OF  POOR  COOPERATION 

F  F  -  SYST  >  280  AND/OR  DIAST  >  150 

G  G  -  RELAiT»'E  HYPOTENSION 

T  I  -  ST  CHANGES 

J  J  -  OTHER 

The  user  can  modify  the  long  code  or  enter  a  new  short  code. 
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Exhibit  5-14:  TMMODSTOPR  Screen  -  Modify  Stop  Reaaons  In  TKEADHILL 


<ssan>  <name>  <dob>  <8ex>  <race> 

<type>  <case  #>  <doe>  <age>  <time> 

modify  stop  reason  _ 

stop  reason 

_ (72  chars) _ 


1.  The  stop  reason  field  will  display  the  long  value  stored  in  the 
data  base. 

2.  The  user  can  modify  the  long  value  or  enter  a  short  code  which 
will  be  edited  to  the  long  value. 

3.  The  first  two  rows  are  protected. 

4.  The  modify- stop-reason  option  field  (SWI  is  modify  record)  is 
unprotected  and  mandatory. 
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Chapter  5.16:  XMIMSSTOPR 

Purpose 

To  allow  t’^.c'  user  to  Insert  a  new  STOP  REASONS  record  for  the 
current  ex^. 

Called  From 


This  step  Is  entered  when  no  STOP  REASONS  records  exist  for  the 
exam  or  the  user  chooses  to  Insert  from  TMSELSTOPR. 

Screen 


TMINSSTOPR 

Logic 

1.  Purge  STOP  REIASONS  data  and  display  fresh  screen. 

2.  If  the  user  answers  'N'  to  ' Insert  stop  reason'  (SWI  insert 
record),  then  go  to  TMMENEXAM. 

3.  Else,  insert  STOP  REASONS  record  after  and  go  to  TMMODSTOPR. 
Validation 

1.  The  Insert-stojr-reason  option  field  (SWI  is  Insert  record) 
is  mandatory  and  must  be  validated  (TESNOTBL,  exists). 

2.  Stop  Reason  -  same  as  described  under  TMMODSTOPR,  except 
optional. 
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Exhibit  5-15:  TMIMSSTOPR  Screen  -  Insert  Stop  Reason  In  TREADMILL 

1 

Uy 

♦ 

1 

1 

i 

1 

1  <ssan>  <name>  <dob> 

1  <type>  <case  #>  <doe>  <age>  <tlme> 

1 

<sex>  <race> 

1 

1 

! 

1 

1 

1 

» 

1  Insert  stop  reason  _ 

1  stop  reason 

1  (72  chars) 

1 

» 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

t 

1 

i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

1 

1 

\ 

1 

I 

1 

l 

1 

1 

» 

i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

\ 

» 

• 

1.  The  user  can  enter  the  short  or  long  value 
The  value  will  be  edited  to  the  long  form  in 

2.  The  first  two  rows  are  protected. 

in  the  input  field, 
both  cases. 

1 

3.  The  Insert 
the  stop 
protected . 

-stojr-reason  option  field  (SWI  is 
reason  are  unprotected.  The 

insert  record) 
first  two  rows 

and 

are 

» 

> 

» 

» 

• 

• 

•  •  • 

•  • 

• 

• 

• 

'-1 
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Chapter  5.17:  TMSELFIND 

Purpose 

The  purpose  of  TMSELFIND  is  to  select  all  FINDINGS  records  and 
display  up  to  four  to  the  user.  This  allows  the  user  to  choose  one 
of  the  four  FINDINGS  records  for  review  or  modification. 

Called  From 

This  step  is  entered  when  the  user  selects  option  '6'  on  TMMENEXAM. 

Screen 

TMSELFIND 

Logic 

Select  FINDINGS  records  on  SSAN,  DOE,  and  CASENO. 

If  NODATA, 

go  to  TMINSFIND. 

Retrieve  up  to  4  FINDINGS  records  and  number  screen  accordingly. 
Display  screen. 

If  the  user  sets  select- findings  option  field  to: 

0  ,  go  to  TMMENEXAM. 
n  ,  where  n  =  $DATASP, 

^  go  to  TMMODFIND. 

n  ,  where  1  £  n  _<  SDATASN, 

rewind  the  FINDINGS  sibling  chain; 
retrieve  the  nth  record  via  $S2KC0UNr; 
go  to  TMMODFIND. 
n  ,  where  n  >  $DATASN, 
go  to  TMINSFIND. 

Validation 

1.  Select  findings  -  mandatory,  numeric. 


•  • 


•  • 


•  •  • 


i 
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Exhibit  5-16:  TMSELFIND  Screen  -  Select  Findings  from  TREADMILL 


» 


I 


* 


Ar 


<ssan>  <name>  <dob> 

<type>  <case  #>  <doe>  <age>  <time> 


<86  x> 


<race> 


select  findings  _ 


1 

2 

3 

4 


dx 

date 


md 

ssan 


md 

inlt 


abn 

bp 


interpretation 


0  none  of  the  above 


1.  All  fields  are  protected  on  this  screen  except  the  select- 
f indings-optlon  field  (SWI  is  select  record). 

2.  Interpretation  is  truncated  on  this  screen  to  fit  on  one  line. 

3.  This  screen  cannot  repeat  thus  allowing  only  four  findings. 


I 


I 


> 


» 


» 


» 


» 


•  •  •  •  •  •  •  • 
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Chapter  5.18:  TMIOOFIND 

Purpose 


To  allow  the  user  to  modify  existing  FINDINGS  records. 
Called  From 


This  step  is  entered  when  the  user  selects  an  existing  FINDINGS 
record  in  TMSELFIND  or  after  a  new  record  is  inserted  in  TMINSFIND. 

Screen 


TMMODFIND 

Logic 

1.  If  the  user  enters  an  'N*  in  the  modlfy-findings  option 
field  (SWI  is  modify  record),  go  to  I^MENFIND. 

2.  Else,  test  DXDATE  >  DOE  and  _<  $DATE.  Save  MDSSAN  and  MDINIT 
as  SWIs  and  default  to  them  in  the  future. 

3.  If  above  tests  fall,  issue  message  and  go  to  Phase  2.  Else, 
issue  a  modify  FINDINGS  and  go  to  Phase  1. 

Validation 

1.  The  modlfy-flndings-option  field  is  mandatory,  table 
(YESNOTBL,  exists). 

2.  MD  SSAN  -  SSANl  (SWI);  range  (0-800),  numeric 

SSAN2  (SWI);  numeric 
SSAN3  (SWI);  numeric 

3.  MD  initials  -  alphabetic. 

A.  Interpretation  is  mandatory,  table  (TMINTTBL,  edit  and 
validate  -  edit  from  COLl  to  C0L2,  then  validate  on  C0L2). 

5.  Validate  dx  date  partial  fields  by  standard  rules  for  dates. 

6.  Abnormal  BP  is  mandatory,  table  (YESNOTBL, exists) . 

7.  Interpretation  -  mandatory,  table(TMINTTBL  is  the  subset  of 
ECGCODESTBL  which  begin  with  32x  and  3Ax) . 


I 


* 


9 


Ar 


» 


> 


I 


* 


•  •  • 


•  •  • 
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Exhibit  5-17:  DMODFIND  Screen  -  Modify  Fladlngs  in  TREADMILL 


+ 


<ssan> 

<name> 

<dob> 

<type> 

<ca8e  #>  <doe> 

<age>  <tlme> 

modify  findings  _ 

<8ex> 


dx  date 
/  / 


rad  ssan 


rad  Inlt  abnormal  bp 


<race> 


Interpretation 


1.  The  dx  date  and  rad  ssan  SWIs  are  for  validation  purposes  and  are 
partial  field  moved  to  their  OBIs. 

2.  The  Interpretation  can  be  modified  in  long  form  or  the  new  code 
can  be  entered  after  clearing  the  field.  It  will  be  edited  to 
long  form  in  all  cases. 

3.  The  modlfy-flndings  option  field  (SWI  is  modify  record)  is 
mandory . 
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Chapter  5.19:  TMOBFIND 

Purpose 

To  allow  the  user  to  Insert  a  new  FINDINGS  record  for  the  current 
exam. 

Called  From 


This  step  Is  entered  from  TMSELFIMD  when  no  FINDINGS  records  exist 
or  when  user  chooses  to  Insert  a  new  FINDINGS  record  from 
TMSELFIND. 

Screen 


TMINSFIND 

Logic 

1.  Purge  the  FINDINGS  data  from  screen.  Move  the  saved  MD  SSAN 
(SWI)  and  MD  INIT  (SWI)  to  MDSSAN  and  MDINIT.  Move  DOE  to 
DXDATE.  Display  screen. 

2.  If  the  user  enters  'N'  to  'Insert  findings'  (SWI  Is  Insert 
record),  go  to  TMMENFIND. 

3.  Else,  test  DXDATE  >  DOE  and  <  $DATE.  If  this  falls.  Issue 
message  and  go  to  Phase  2. 

4.  Else,  partial  field  move  DXDATE  and  MDSSAN  together  from 
SWIs.  Issue  insert  FINDINGS  after. 

5.  Save  MDSSAN  and  MDINIT,  go  to  TMMODFNDGS. 

Validation 

1.  The  Insert-findings  option  field  (SWI  is  modify  record)  is 
mandatory,  table(YESNOTBL,  exists). 


2.  Otherwise,  same  as  TMMODFIND,  except  all  DBIs  are  optional. 
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Exhibit  5-18:  IMIlISFIin)  Screen  -  Insert  Findings  In  ntSAIMILL 


■i - + 

I  t 

I  I 

I  <ssan>  <narae>  <dob>  <sex>  <race>  [ 

1  <type>  <case  #>  <doe>  <age>  <tlme>  1 

I  I 

I  I 

I  Insert  findings  _  | 

I  I 

I  I 

I  dx  date  md  ssan  md  Inlt  abnormal  bp  | 

!  /  /  -  -  _  1 


Interpretation 


1.  The  fields  or.  this  screen  are  Identical  to  those  on  TMMODFIND. 

2.  The  Insert-findings  option  field  (SWI  is  insert  record)  Is 
mandatory. 
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Chapter  5.20:  TMfENFIND 

Purpose 

This  step  gives  the  user  a  choice  of  what  to  do  next.  The  user  can 

work  with  ARRHYTHMIAS,  RE POLARIZATION,  or  ECG-CODES  records.  ' 

Additionally,  It  gives  the  user  the  flexibility  to  return  to  any 

level  above  this  step  in  the  transaction  hierarchy. 

Called  From 


This  step  is  called  from  TMMODFIND  when  'N'  is  entered  in  the 
modlfy-exam  option  field  (SWI  is  modify  record)  and  is  entered  from 
all  lower  level  steps  that  process  ARRHYTHMIAS,  REPOLARIZATION,  or 
ECG-CODES  records. 

Screen 

TMMENFIND 

Logic 


If 

'SELECT 

NEXT 

'  STEP*  is  ! 

a) 

'1'.  go 

to 

ECGSELPERS, 

b) 

'2',  go 

to 

ECGKENPERS. 

c) 

'3',  go 

to 

TMSELEXAM. 

d) 

'4',  go 

to 

TMSELVITAL. 

e) 

'5',  go 

to 

TMSELSTOPR 

f) 

’6’,  go 

to 

TMSELFIND. 

g) 

'7' 

go 

to 

TMSELARR. 

h) 

'8' 

go 

to 

TMSELREPO. 

i) 

'9' 

go 

to 

TMSELECODE 

j) 

'O’,  go 

to 

SEXIT . 

Validation 


1.  Selection  field  must  be  validated  to  be  numeric  in  the  range 
0-9. 


•  •  • 
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Exhibit  5-19:  TMMENFIND  Screen  -  TREAUMILL  Plndli«e  Menu 


<ssan> 

<name> 

<dob> 

<8ex>  <race> 

<type> 

<ca8e  #> 

<doe> 

<age>  <tlme> 

<dx  date> 

<md 

S8an> 

<md  lnlt>  <abnormal 

bp>  <lnterpretation> 

select  next  step  _ 

1 

select 

new  person 

2 

select 

data  base 

3 

select 

exam 

4 

select 

vitals 

5 

select 

stop  reasons 

6 

select 

findings 

7 

select 

arrhythmias 

8 

select 

repolarization 

9 

select 

ecg  codes 

0 

exit 

^ - + 

1.  Interpretation  may  be  truncated. 


•  • 


- - 
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Chapter  5.21:  TMSELARR 
Purpose 

This  step  determines  If  there  are  0,  more  than  4,  or  between  1  and 
four  (Inclusive)  ARRHYTHMIAS  records.  If  there  are  0  records, 
TMINSARR  Is  called  to  allow  the  user  to  Insert  a  record;  If  there 
are  between  1  and  4  (Inclusive)  ARRHYTHMIAS  records,  TMSELARR4  is 
called  to  display  up  to  4  records;  if  there  are  more  than  4 
ARRHYTHMIAS,  TMSELARR14  is  called  to  display  up  to  14  ARRHYTHMIAS 
records  at  a  time.  This  step  has  no  screen  associated  with  it. 

Called  From 

The  TMSELARR  step  is  called  from  TMMENFIND. 

Screen 


None . 


Logic 

Select  ARRHYTHMIAS  record  on 
SSAN,  DOE,  and  OXOATE. 

If  NODATA, 

go  to  TMINSARR. 

If  0  <  $DATASN  <  4, 

go  to  TMSELARR4. 

If  $DATASN  >  4, 

go  to  TMSELARR14. 


NOTE:  TMSELARR14  identical  to  TMSELARR4,  except 
TMSELARR14  uses  the  TMSELARR14  screen  and 
retrieves  up  to  14  arrhythmias  at  a  time). 


I 
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I 


» 


» 


» 


» 


> 


> 


» 


•  • 


•  •  • 
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Chapter  5.22:  THSEIASRA 

Purpose 

The  purpose  of  the  TMSELARR4  step  is  to  display  up  to  4  ARRHYTHMIAS 
records  (by  codes)  to  the  user.  The  user  can  then  select  an 
existing  record  for  review  or  modification,  choose  to  Insert  a  new 
record,  or  exit  to  a  menu. 

Called  From 

The  TMSELARR4  step  is  called  from  TMSELARR  (when  0  <  $DATASN  < 
4). 

Screen 

TMSELARR4 

Logic 

1.  Retrieve  up  to  4  ARRHYTHMIAS  records,  number  screen 
accordingly,  and  display  only  the  first  character  of  each  of 
the  three  items  in  the  ARRHYTHMIAS  record  in  3  DBIs  on  the 
screen. 

2,  If  'select  record'  (SWI  for  select- arrhythmia  option  field) 
is: 

a)  'O',  go  to  TMMEMFIND. 

b)  'n',  where  n  =  SDATASP,  go  to  TMMODARR. 

c)  'n',  where  1£  n  <  $DATASN,  rewind  the  ARRHYTHMUS 
record  sibling  chain  and  retrieve  the  nth  record  via 
$S2KC0UNT.  Go  to  TMMODARR. 

d)  'n',  where  n  >  $DATASN,  go  to  TMINSARR. 

Validation 


» 


I 


♦ 


1.  The  select-arrhythmlas-codes  option  field  (SWI  is  select 
record)  is  mandatory,  range  0-5. 

2.  All  other  fields  are  protected. 


* 


% 


9 
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Exhibit  5-20:  TMSBLARR4  Screen  -  Select  4  Arrhythnies  in  TXEADMILL 


<ssan>  <name> 

<type>  <ca8e  #>  <doe>  <age> 
<dx  date>  <lnterpretatlon> 

select  arrhythmias  codes  _ 


<dob> 

<time> 


<sex>  <race> 


0  none  of  the  above 


1.  All  fields  on  this  screen  are  protected,  except  for  select- 
arrhythmlas-codes  option  field  (SWI  is  select  record). 
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Chapter  5.23:  TMSELARR14 

Purpose 

This  step  displays  up  to  14  ARRHYTHMIAS  records  (by  code)  at  a 
time.  The  user  can  page  through  additional  records,  select  an 
existing  record  for  review  or  modification,  choose  to  insert  a  new 
record,  or  exit  to  a  menu. 

Called  From 

The  TMSELARR14  step  is  called  from  TMSELARR  when  more  than  4 
ARRHYTHMIAS  records  exist. 

Screen 

TMSELARR14 

Logic 

1.  Retrieve  up  to  14  ARRHYTHMIAS  records,  number  the  screen 
accordingly,  and  display  only  the  first  character  of  each  of 
the  three  items  in  the  ARRHYTHMIAS  record  in  3  DBIs  on  the 
screen. 

If  $DATASP  <  $DATASN,  then  issue  message:  "Press  Return  To 
See  More  Records". 

If  $DATASP  “  $DATASN  and  $DATASN  >  14,  then  issue  message: 
"Press  Return  To  See  Prior  Records". 

2.  If  'select  record'  (SWI  for  select-arrhythmias  option  field) 
is 

a)  blanks,  then  if  $DATASP  “  $DATASN,  rewind  locate  file. 
In  either  case,  go  to  1. 

b)  'O',  go  to  TMMENFIND. 

c)  ' n' ,  where  n  “  $DATASP,  go  to  TMMODARR. 

d)  'n',  where  1  _<  n  _<  SDATASN,  rewind  the  ARRHYTHMIAS 
sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  TMMODARR. 

e)  ' n' ,  where  n  >  SDATASN,  go  to  TMINSARR. 

Validation 


1.  The  select-arrhythmla-codes  option  field  (SWI  is  select 
record)  must  be  numeric,  if  entered. 

2.  All  other  fields  are  protected. 
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Exhibit  5-21;  TMSEIAR1114  Screen  -  Select  14  Arrhythnlas  in  TREADMILL 


<ssan>  <name>  <dob> 

<type>  <case  #>  <doe>  <age>  <time> 
<dx  date>  <lnterpretatlon> 

select  arrhythmias  codes  _ 


1 _ 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

0  none  of  the  above 


<sex>  <race> 


1.  All  fields  on  this  screen  are  protected,  except  for  select- 
arrhythmlas-codes-option  field  (3WI  Is  select  record). 


•  ••••••• 


Page  5-49 
Chapter  5.24 


Chapter  5.24:  TMMODARR 

Purpose 


To  allow  the  user  to  modify  existing  .ARRHYTHMIAS  records. 
Called  From 


This  step  is  entered  when  the  user  selects  an  existing  ARRHYTHMIAS 
record  in  TMSELARR4  or  TMSELARR14,  or  after  a  new  record  is 
inserted  in  TMINSARR. 

Screen 


TMMODARR 

Logic 

1.  If  the  user  enters  an  'N'  in  the  nodify-arrhythmias  option 
field  (SWI  is  modify  record),  go  to  TMMENFIND. 

2.  Else  modify  and  go  to  phase  1. 

Validation 


1.  The  modify-arrhythmia  field  option  (SWI  is  modify  record)  is 
mandatory  and  validated  (Y2SN0TBL,  exists). 

2.  The  arrhythmia  codes  fields  are  edited  on  input  according  to 
the  appropriate  table  associated  with  each  item  and  are 
mandatory  (TMARRTBL,  edit  column  1  to  column  2  then  validate 
on  column  2,  TMONSTBL,  edit  column  1  to  column  2  then 
validate  on  column  2,  TMFRETBL,  edit  column  1  to  column  2 
then  validate  on  column  2). 

3.  User  may  input  either  short  or  long  values.  Short  values 
will  be  edited  to  long  and  then  validated. 
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Exhibit  5-22:  IMMODARR  Screen  -  Modify  Arrhythmias  In  TREADMILL 


<ssaa>  <name>  <dob>  <sex>  <race> 

<type>  <case  #>  <doe>  <age>  <tiine> 

<dx  date>  <lnterpretation> 

modify  arrhythmias  _ 

arrhythmia  _  (60  chars) _ 

onset  _ (60  chars) _ 

frequency _ (60  chars) _ 


1.  All  fields  on  this  screen  are  protected,  except  for  the  modify- 
arrhythmla  option  field  (SWI  is  modify  record),  arrhythmia, 
onset,  and  frequency. 


£ 
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Chapter  5.25:  IMIMSARR 

Purpose 

To  allow  the  user  to  Insert  a  new  ,\RRHYTHML\S  record  for  the 
current  FINDINGS  record. 

Called  From 

This  step  is  entered  from  TMSELARR4  when  no  ARRHYTHMIAS  records 
exist  or  when  user  chooses  to  insert  a  new  ARRHYTHMIAS  record  from 
TMSELARR4  or  TMSELARR14. 

Screen 

TMINSARR 

Logic 

1.  Display  screen. 

2.  If  the  user  enters  'N'  to  insert  arrhythmias  option  field 
(SWI  Is  Insert  record),  go  to  TMMENFIND. 

3.  Else,  insert  ARRHYTHMIAS  record  after.  Go  to  TMMODARR. 
Validation 

1.  The  Inser t-arrhytholas-codes  field  option  (SWI  is  insert 
record)  is  mandatory  and  validated  (YESNOTBL,  exists). 

2.  The  arrhythmia  codes  fields  are  edited  on  input  according  to 
the  appropriate  table  associated  with  each  item  and  are 
optional  (TMARRTBL,  edit  column  1  to  column  2  then  validate 
on  column  2,  TMONSTBL,  edit  column  1  to  column  2  then 
validate  on  column  2,  TMFRETBL,  edit  column  1  to  column  2 
then  validate  on  column  2). 

3.  User  may  input  either  short  or  long  values.  Short  values 
will  be  edited  to  long  and  then  validated. 


•  ••••••• 
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Exhibit  5-23;  TMISSARR  Screen  -  Insert  Arrhythalas  In  TREADMILL 


<ssan>  <nanie5  <dob>  <sex>  <race> 

<type>  <ca8e  #>  <doe>  <age>  <time> 

<dx  date>  <Interpretation> 


insert  arrhythmias  codes 

arrhythmia  _ 
onset  _ 
frequency  _ 


1.  All  fields  on  this  screen  are  protected,  except  for  Insert- 
arrhythmias-codes  option  field  (SWI  is  Insert  record), 
arrhythmia,  onset,  and  frequency.  Data  values  will  be  put  in  the 
data  base  in  long  form. 
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Chapter  5.26:  IMSELBJBFO 
Purpose 

The  purpose  of  the  TMSELREPO  step  Is  to  determine  if  there  are  0, 
between  1  and  four  (inclusive),  or  more  then  4  REPOLARIZATION 
records.  If  there  are  0,  TMINSREPO  is  called  to  allow  the  user  to 
insert  a  record;  if  there  are  between  1  and  4  (inclusive)  records, 
TMSELREP04  is  called  to  display  up  to  4  REPOLARIZATIONS  records;  if 
there  are  more  than  4,  TMSELREP014  is  called  to  display  for  the 
user  REPOLARIZATIONS  records  up  to  14  at  a  time.  This  step  has  no 
screen  associated  with  it. 

Called  From 

The  TMSELREPO  step  is  called  from  TMMENFIND. 

Screen 

None. 

Logic 

Select  REPOLARIZATIONS  records  on 
SSAN,  DOE,  and  DXDATE. 

If  NODATA, 

»  go  to  TMINSREPO. 

If  0  <  $DATASN  <  4, 
go  to  TMSELREP04. 

If  $DATASN  >  4, 

go  to  TMSELREPO 14. 

NOTE:  TMSELREP014  is  Identical  to  TMSELREP04  except 
it  uses  the  TMSELREP014  screen  and  retrieves 
up  to  14  repolarizations  at  a  time). 


I 


» 


I 


I 


» 


I 


» 


I 


> 


•  • 
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» 


» 


» 


i 


» 


» 


» 


» 


» 


•  •  • 


•  •  •  •  I 


w 
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Chapter  5.27:  TMSELRBF04 

Purpose 

The  purpose  of  the  TMSELREP04  step  Is  to  display  up  to  four 
(inclusive)  RE POLARIZATION  records  (by  code  only).  The  user  can  * 

then  select  an  existing  record  for  review  or  modification,  choose 
to  Insert  a  new  record,  or  exit  to  a  menu. 

Called  From 


The  TMSELREP04  step  is  called  from  TMSELREPO.  * 

Screen 


TMSELREP04 

Log Ic  > 

1.  Retrieve  up  to  4  REPOLARIZATIONS  records,  number  screen 
accordingly,  and  display  only  the  first  character  of  each  of 
the  three  items  in  the  REPOLARIZATIONS  record  in  3  DBIs  on 
the  screen. 

» 

2.  If  'select  record'  (SWI  for  select-repolarizations-codes 
option  field)  Is: 

a)  'O',  go  to  TMMENFIND. 

b)  'n',  where  n  =  $DATASP,  go  to  TMMODREPO.  » 

c)  'n',  where  1  £  n _<  $DATASN,  rewind  the  RE POLARIZATIONS 

record  sibling  chain  and  retrieve  the  nth  record  via 
$S2KC0UNT.  Go  to  TMMODREPO. 

d)  'n',  where  n  >  $DATASN,  go  to  TMINSREPO.  » 

Validation 

1.  The  select-repolarizations-codes  option  field  (SWI  is  select 
record)  is  mandatory  and  must  be  numeric. 

» 

2.  All  other  fields  are  protected. 


» 


I 


•  •  •  •  •  •  •  • 
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Exhibit  5-24:  TMSELREF04  Screen  -  Select  4  TREADMILL  Repolarlzatlons 


<s8an>  <name>  <dob>  <sex>  <race> 

<type>  <case  #>  <doe>  <age>  <tlme> 

<dx  date>  <lnterpretatlon> 

select  repolarlzatlons  codes  _ 

1 _ 

2 

3 

4 

0  none  of  the  above 


H - + 

1.  All  fields  on  this  screen  are  protected,  except  for  the  select- 
repolarlzatlons-codes  option  field  (SWI  Is  select  record). 
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Chapter  5.28:  IMSELREFOIA 

Purpose 

This  step  displays  up  to  14  REPOLARIZATIONS  records  (by  codes)  at  a 
time.  The  user  can  page  through  additional  records,  select  an 
existing  record  for  review  or  modification,  choose  to  insert  a  new 
record,  or  exit  to  a  menu. 

Called  From 

The  TMSELREP014  step  is  called  from  TMSELREPO  when  more  than  4 
REPOLARIZATIONS  records  exist. 

Screen 
TMSELREPO 14 

logic 

1.  Retrieve  up  to  14  REPLOARIZATIONS  records,  number  screen 
accordingly,  and  display  only  the  first  character  of  each  of 
the  three  items  in  the  REPOLARIZATIONS  record  in  3  DBIs  on 
the  screen. 

If  $DATASP  <  $DATASN,  then  issue  message:  "Press  Return  To 
See  More  Records". 

If  $DATASP  =  $DATASN  and  $DATASN  >  14,  then  Issue  message: 
"Press  Return  To  See  Prior  Records". 

2.  If  'select  record'  (SWI  for  select-vitals  option  field)  is 

a)  blank,  then  if  $DATASP  =  $DATASN,  rewind  locate  file.  In 
either  case,  go  to  1. 

b)  'O',  go  to  TMMENFIND. 

c)  'n',  where  n  =  $DATASP,  go  to  TMMODREPO. 

d)  '  n' ,  where  1  n^  SDATASN,  rewind  the  REPOLARIZATIONS 
sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  TMMODREPO. 

e)  ' n' ,  where  n  >  $DATASN,  go  to  TMINSREPO. 

Validation 

1.  The  select-repolarizations-codes  option  field  (SWI  is  select 
record)  is  optional  and  must  be  numeric,  if  entered. 

2.  All  other  fields  are  protected. 


- - - 

— *- — ^ 

» 

* 
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Exhibit  5-25:  TMSELRBP014  Screen  -Select  14  TREADMILL  Repolarlzatlons 

♦ 

1 

1 

1  <ssan>  <name>  <dob> 

I  <type>  <case  #>  <doe>  <age>  <time> 

I  <dx  date>  <interpretatlon> 

1 

<8ex> 

<race> 

1 

1 

1 

1 

1 

1 

1 

1 

1 

• 

1 

1  select  repolarlzatlons  codes  _ 

1 

1 

1 

1 

1 

1  1 
!  2 

1  3 

1 

1 

1 

1 

1 

1 

i 

» 

1  4 

1 

i 

1  5 

\ 

1 

1  6 

1 

1 

1  7 

1 

1 

» 

!  8 

1 

1 

1  9 

1 

1 

1  10 

1 

1 

1  11 

1 

1 

1  12 

1 

1 

1  13 

1 

1 

» 

• 

1 

1 

1 

1 

1 

1 

i  0  none  of  the  above 

i 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

» 

1.  All  fields  on  this  screen  are  protected. 

except  for  the 

select- 

repolarizations-codes  option  field  (SMI  Is 

select  record) 

» 

» 

* 

1 

• 

•  •  •  • 

• 

• 

• 

• 

• 
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Chapter  5.29:  TMHODRBFO 

Purpose 

To  allow  the  user  to  modify  existing  REPOLARIZATIONS  records. 

Called  From 

This  step  Is  entered  when  the  user  selects  an  existing 
RE POLARIZATIONS  record  in  TMSELREP04  or  TMSELREP014,  or  after  a  new 
record  Is  inserted  In  TMINSREPO. 

Screen 


TMMODREPO 

Logic 

1.  If  the  user  enters  an  'N'  in  the  modify-repolarizations 
option  field  (SWI  is  modify  record),  go  to  TMMENFIND. 

2.  Else  modify  and  go  to  phase  1. 

Validation 


1.  The  modify  repolarizations  field  option  (SWI  is  modify 
record)  is  mandatory  and  validated  (YESNOTBL,  exists). 

2.  The  Items  in  the  REPOLARIZATIONS  record  are  validated 

according  to  that  particular  table  and  are  mandatory 

(TMLEATBL,  edit  to  column  2,  then  validate  on  column  2 

(TMPERTBL,  edit  to  column  2,  then  validate  on  column  2 

(TMREPTBL,  edit  to  column  2,  then  validate  on  column  2 


•  • 


•  •  •  •  • 
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Exhibit  5-26:  IMMODREFO  Screen  -  Modify  Repolarlzatlons  In  TREADMILL 


<ssan>  <name>  <dob>  <sex>  <race> 


<type>  <case  #>  <doe> 

<dx  date>  <lnterpretatlon> 

<age> 

<time> 

modify  repolarlzatlons  _ 

lead 

(60 

chars) 

period 

(60 

chars) 

repolarlzatlon 

(60 

chars) 

1.  All  fields  on  this  screen  are  protected,  except  for  the  modify- 
repolarlzations-codes  option  field  (SWI  is  modify  record),  lead, 
period,  and  repolarization. 

2.  The  items  in  the  REPOLARIZATTONS  record  will  always  appear  in 
long  form,  but  the  user  may  use  either  the  short  or  the  long  form 
in  modifying  the  record.  The  items  will  be  edited  to  long  for 
the  data  base. 


•  ••••••• 


i 
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Chapter  5.30:  TMIHSREFO 

Purpose 

To  allow  the  user  to  Insert  a  new  REPOLARIZATIONS  record  (by  codes) 
for  the  current  FINDINGS  record. 

Called  From 


This  step  is  entered  from  TMSELREP04  when  no  REPOLARIZATIONS 
records  exist  or  when  user  chooses  to  insert  a  new  RE POLARIZATIONS 
record  from  TMSELREP04  or  TMSELREP014. 

Screen 


TMINSREPO 

Logic 

1.  Display  screen. 

2.  If  the  user  enters  'N'  to  insert-repolar izations-codes 
option  field  (SWI  is  Insert  record),  go  to  TMJiENFIND. 

3.  Else,  Insert  REPOLARIZATIONS  record  after.  Go  to  TMMODREPO. 
Validation 

1.  The  insert-repolarizations  option  field  (SWI  is  Insert 
record)  is  mandatory  (YESNOTBL,  exists). 

2.  The  items  in  the  REPOLARIZATIONS  record  are  validated 

according  to  that  particular  table  but  are  optional 
(TMLEATBL,  edit  to  column  2,  then  validate  on  column  2 

(TMPERTBL,  edit  to  column  2,  then  validate  on  column  2 

(TMREPTBL,  edit  to  column  2,  then  validate  on  column  2 
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Exhibit  5-27:  TMIHSREPO  Screen  -  Insert  Re polarizations  In  TREADMILL 


<s8an>  <name>  <dob>  <sex>  <race> 

<type>  <case  #>  <doe>  <age>  <tlme> 

<dx  date>  <lnterpretatlon> 

insert  repolarizations  _ 

lead  _ 
period  _ 
repolarlzatlon  _ 


1.  All  fields  on  this  screen  are  protected,  except  for  insert- 
repolarlzations  option  field  (SWI  is  insert  record),  lead, 
period,  and  repolarlzatlon.  Data  values  will  be  put  in  the  data 
base  in  long  form. 


•  •  • 
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Chapter  5.31:  IMSELECODB 

Purpose 

The  purpose  of  the  TMSELECODE  step  is  to  determine  if  there  are  0, 

between  1  and  4  (inclusive),  or  more  than  4  ECG-CODES  records.  If 

there  are  0  ECG-CODE  records  selected,  TMINSECODE  is  called  to  ' 

allow  the  user  to  Insert  a  record;  if  there  are  between  1  and  four 

ECG-CODES  records,  TMSELEC0DE4  is  called  to  display  up  to  4 

records;  if  there  are  more  than  4  records,  TMSELEC0DE14  is  called 

to  display  for  the  user  ECG-CODES  records  up  to  14  at  a  time.  This 

step  does  not  have  a  screen  associated  with  it. 

I 

Called  From 

The  TMSELECODE  step  is  called  from  TMMENFIND  which  is  the  FINDINGS 
menu. 

Screen 

None.  ) 

Logic 

Select  ECG-CODES  records  on 
SSAN,  DOE,  and  DXDATE. 

If  NODATA,  • 

go  to  TMINSECODE. 

If  0  <  $DATASN  <  4 , 

go  to  TMSELECODE 4. 

If  $DATASN  >  4, 

go  to  TMSELECODE 14. 

t 

NOTE:  TMSELECODE 14  is  identical  to  TMSELEC0DE4 
except  it  uses  the  TMSELEC0DE14  screen  and 
retrieves  up  to  14  ecg-codes  at  a  time). 


» 


I 


» 


t 


•  •  •  • 
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» 


» 


I 


» 


» 
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Chapter  5.32:  lMSELEC0De4 

Purpose 

The  purpose  of  the  TMSELEC0DE4  ste^  is  to  display  up  to  4  ECG-CODES 
records.  The  user  can  then  select  an  existing  record  for  review  or 
modification,  choose  to  insert  a  new  record,  or  exit  to  a  menu. 

Called  From 

The  TMSELEC0DE4  step  is  called  from  TMSELECODE  (when  0  <  $DATASN  < 
4). 


Screen 
TMSELECODE 4 

Logic 

1.  Retrieve  up  to  4  ECG-CODE  records,  number  screen 
accordingly,  and  display. 

2.  If  'select  record'  (SWl  for  select-ecg-codes  option  field) 
is 

a)  'O',  go  to  TMMENFIND. 

b>  'n',  where  n  =  $DATASP,  go  to  TMMODECODE. 

c)  'n',  where  1  j<  n£  $DATASN,  rewind  the  ECG-CODES  record 
sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  TMMODECODE. 

d)  'n',  where  n  >  $DATASN,  go  to  TMINSECOM:. 

Validation 

1.  The  select-ecg-codes  option  field  (SWI  is  select  record)  is 
mandatory  and  must  be  numeric. 

2.  All  other  fields  are  protected. 
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Exhibit  5-28:  TMSBLBC0I]e4  Screen  -  Select  4  BCG  Codes  in  TUAOMILL 


<ssan>  <name>  <dob>  <sex>  <race> 

<type>  <case  #>  <doe>  <age>  <tlme> 

<dx  date>  <lnterpretation> 

select  ecg  codes  _ 

1  _ (72  chars) _ 

2 

3 

4 

0  none  of  the  above 


1.  All  fields  on  this  screen  are  protected,  except  for  select  ecg- 
codes  option  field  (SWI  is  select  record). 

2.  All  ecg  codes  will  appear  in  long  form. 


•  •  • 


•  •  • 
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Chapter  5.33:  TMSELXC0DBI4 
Purpose 

This  step  displays  up  to  14  ECG-CODES  records  at  a  time.  The  user 
can  page  through  additional  records,  select  an  existing  record  for 
review  or  modification,  choose  to  insert  a  new  record,  or  exit  to  a 
menu. 

Called  From 

The  TMSELEC0DE14  step  Is  called  from  TMSELECODE  (when  more  than  4 
ECG-CODES  records  exist). 

Screen 

TMSELECODE 14 
Logic 

1.  Retrieve  up  to  14  ECG-CODES  records,  number  screen 
accordingly,  and  display. 

If  $DATASP  <  $DATASN,  then  issue  message:  "Press  Return  To 
See  More  Records". 

If  $OATASP  ■  $DATASN  and  $DATASN  >  14,  then  issue  message: 
"Press  Return  To  See  Prior  Records". 

2.  If  'select  record'  (SWI  for  select-ecg-codes  option  field) 
Is 

a)  blank,  then  If  $DATASP  •  $DATASN,  rewind  locate  file.  In 
either  case,  go  to  1. 

b)  'O',  go  to  TMMENFIND. 

c)  'n',  where  n  -  $DATASP,  go  to  TMMODECODE. 

d)  'n',  where  1  <_  n  <  $DATASN,  rewind  the  ECG-CODES  sibling 
chain  and  retrieve  the  nth  record  via  $S2KC0UNT.  Go  to 
TMMODECODE . 

e)  ' n' ,  where  n  >  $DATASN,  go  to  TMINSECODE. 

Validation 


» 


I 


I 


I 


I 


1.  The  select-ecg-codes  option  field  (SWI  Is  select  record)  is 
mandatory  and  must  be  numeric. 

2.  All  other  fields  are  protected. 


•  •  • 


t 
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Exhibit  5-29:  1MSELBC0DB14  Screen  -Select  14  BCG  Codes  In  TKB4DHILL 


1.  All  fields  on  this  screen  are  protected,  except  for  select  ecg- 
codes  option  field  (SWI  is  select  record), 

2.  Codes  will  appear  in  long  form. 
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Chapter  5.34:  DMODBCODB 
Purpose 


To  allow  the  user  to  modify  existing  ECG-CODES  records. 
Called  From 


This  step  is  entered  when  the  user  selects  an  existing  ECG-CODES 
record  in  TMSELEC0K4  or  TMSELEC0DE14,  or  after  a  new  record  is 
Inserted  in  TMINSECODE. 

I 

Screen 


TMMO DECODE 
Logic 

1.  If  the  user  enters  an  'N'  in  the  raodify-ecg-codes  option 
field  (SWI  is  modify  record),  go  to  TMMENFIND. 

2.  Else  modify  and  go  to  phase  1. 

Validation 


1.  The  modify  ecg  codes  field  option  (SWI  is  modify  record)  is 
mandatory  and  validated  (YESNOTBL,  exists). 

2.  The  ECG-CODES  field  is  edited  on  input  from  COLl  to  C0L2 
(ECGCODESTBL,  exists)  and  validated  on  ECGCODESTBL  C0L2. 


•  • 

-  -  -  ^ 
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Exhibit  5-30:  TIMODBCODB  Screen  -  Modify  ECG  Codes 

In  TREADMILL 

1 

•) 

4r 

1 

1 

1  <ssan>  <naae>  <dob> 

I  <type>  <case  #>  <doe>  <age>  <tlme> 

j  <dx  date>  <lnterpretatlon> 

1 

<sex> 

<race> 

1 

1 

1 

1 

1 

1 

1 

1 

1 

» 

1 

1  modify  ecg  codes 

1 

1 

1 

I 

1 

j  ecg  code 

1 

1 

1 

1 

1 

> 

1  (72  chars) 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

» 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

( 

» 

i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

» 

1.  All  fields  on  this  screen  are  protected,  except  for  the  modify 
ecg  codes  option  field  (SWI  Is  modify  record)  and  ECG-CODE. 

2.  ECG  code  will  appear  In  long  form,  but  user  may  use 

modifying  the  record. 

either  in 

» 

> 

> 

» 

• 

• 

• 

• 

# 

• 

• 

• 

• 

1 

Page  5-71 
Chapter  5.35 


Chapter  5.35:  IMDBBCODE 

Purpose 

To  allow  the  user  to  Insert  a  new  ECG-CODES  record  for  the  current 
FINDINGS  record. 

Called  From 

This  step  Is  entered  from  TMSELECODE  when  no  ECG-CODES  records 
exist  or  when  user  chooses  to  insert  a  new  ECG-CODES  record  from 
TMSELEC0DE4  or  TMSELECODE 14. 

Screen 


TMINSECODE 

Logic 

1.  Display  screen. 

2.  If  the  user  enters  'N*  to  insert-ecg-codes  option  field  (SWl 
is  Insert  record),  go  to  "DIMENFIND. 

3.  Else,  insert  ECG-CODES  record  after.  Go  to  TMMODECODE. 
Validation 

1.  The  insert  ecg  codes  option  field  (SWI  is  insert  record)  is 
mandatory  (YESNOTBL,  exists). 

2.  Otherwise,  same  as  TMMODECODE,  except  DBI  is  optional. 
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Exhibit  5-31:  TMINSBCOK  Screen  -  Insert  ECG  Codes  In  TRBADHILL 


» 


* 


» 


w 


At 


t  I 

I  I 

1  <ssan>  <name>  <dob>  <sex>  <race>  [ 

I  <type>  <case  #>  <doe>  <age>  <tlme>  1 


<dx  date>  <lnterpretatlon> 
Insert  ecg  codes  _ 
ecg  code 


1.  All  fields  on  this  screen  are  protected,  except  for  insertecg- 
codes  option  field  (SHI  is  Insert  record)  and  'ecg  code*.  Data 
values  will  be  put  In  the  data  base  in  long  form. 


» 


I 


» 


I 


> 


» 


» 


I 
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PART  6:  THE  PDLMOHART  DATABASE 


The  PULMOHARY  transaction  Is  the  sane  as  previous  transactions 
except  that  In  each  lower  level  selection  step  (below  EXAMS),  there 
Is  only  one  occurrence  of  type  of  record,  so  the  selection  steps 
only  have  to  determine  whether  or  not  a  particular  type  of  record 
exists.  There  are  four  different  record  types;  namely,  baseline 
spirometry  and  bronchodllated  spirometry  (PFTS  records)  and, 
arterial  blood  gases  at  rest  and  arterial  blood  gases  with  exercise 
(ARTERIAL  GASES  records).  In  PFTS  records,  the  type  Is  determined 
by  the  contents  of  the  component  Bronchodllated.  If  Bronchodllated 
Is  null  or  N,  the  record  Is  a  baseline  spirometry;  if 
Bronchodllated  Is  Y,  the  record  Is  a  bronchodllated  spirometry.  In 
ARTERIAL  GASES  records,  the  type  Is  determined  by  the  contents  of 
the  component  Exercise.  If  Exercise  is  null  or  N,  the  record  is 
arterial  blood  gas  at  rest;  if  Exercise  is  Y,  the  record  Is 
arterial  blood  gas  with  exercise.  If  a  record  type  exists,  a  step 
is  called  to  allow  the  ustr  to  modify  the  record.  If  the  record 
type  does  not  exist,  a  step  is  called  to  allow  the  user  to  Insert  a 
new  record. 

The  PULMONARY  data  base  definition  and  sample  input  data  forms  are 
shown  in  the  following  exhibits.  The  steps  which  update  the  data 
base  are  then  presented  in  the  logical  order  in  which  they  would  be 
encountered. 


•  • 
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Exhibit 


6-1:  PULMONARY  Database  Definition 


OESCRieE: 

SYSTEM  RELEASE  MUMPER  1.^7 
DATA  BASE  NAME  islpiil  mpmaRvI 

definition  number  :: 

DATA  BASE  CYCLE  3 
0*  PERSON 

1*  SSAN  (CHAR  X(9)) 

2*  NAME  (CHAR  X<19>) 

3*  DOB  (DATE) 

4*  SEX  (NON-KEY  CHAR  X) 

5*  EXAMS  (RECORD) 

6*  DOE  (DATE  IN  5) 

7*  TIME  (NON-)EV  INTEGER  NUMBER  9999  IN  G) 

9*  AGE  (INTEGER  NUMBER  99  IN  5) 

9*  GRADE  (CHAR  XXX  IN  5) 

10*  TITLE  (NON-KEY  CHAR  XXX  IN  5) 

11*  TYRE  (NON-*.EY  CHAR  X  IN  5) 

12*  CASE -NO  (INTEGER  NUMBER  9(5)  IN  5) 

13*  TEMP  (NON-KEY  INTEGER  NUMBER  99  in  5) 

14*  HT  (NON-KEY  INTEGER  NUMBER  999  IN  5) 

IS*  WT  (NON-KEY  DECIMAL  NUMBER  999.9  IN  5) 

16*  BSA  (NON-KEY  DECIMAL  NUMBER  9.99  IN  5) 

17*  BARQ  (NON-KEY  INTEGER  NUMBER  999  IN  S) 

18*  EVER-SMOt.ED-CIGARETTES-FOR-ONE-TEAR  (CHAR  X  IN  S) 

19*  SMOKE-CIGARETTES-NOW  (CHAR  X  IN  5) 

20*  OUIT-CIGARETTES-LESS-THAN-ONE-YEAR  (NON-)  ET  CHAR  X  IN  S) 

21*  WHOLE-veARS-SINCE-OUIT-CIGARETTES  (NON-t  EY  INTEGER  NUMBER  9 
9  IN  5) 

22*  T0TAL-YEARS-2IGARETTES-5MQ)  ED-REGULhRLY  (NON-)  EY  INTEGER  NU 
MBER  99  IN  5) 

23*  OVER-SMOKING-YEARS-AVERAGE-rAC)  S-FER-DAY  (NON-)EY  DECIMAL  N 
UMBER  9.9  IN  5) 

PACK-YEARS  (NON-)  EY  INTEGER  NUMBER  999  IN  S> 

HX-ASTHMA-EVER  (CHAR  X  IN  5) 

HX-OHRONIC-COUGH  (CHAR  X  IN  5) 

HX-RECENT-COLD  (CHAR  X  IN  5) 

FM-HX-LUN6-DX  (CHAR  X  IN  5) 

HRS-SXNCE-SMOK.ED  (NON-).EY  INTEGER  NUMBER  99  IN  5) 

ECOLIZER  (NON-) EY  INTEGER  NUMBER  999  IN  Z> 

PFT-K(NL  (CHAR  X  IN  5) 

TECH-SSAN  (NON-KEY  CHAR  X (9)  IN  5) 

TECH-INITIALS  (NON-KEY  CHAR  XXX  IN  5) 

PFTS  (RECORD  IN  5) 

BROMCHODILATED  (NON-)  EY  CHAR  X  IN  34) 

FVC-EXP  (NON-KEY  DECIMAL  NUMBER  9.99  IN  34) 

FVC-OBS  (NON-).EY  DECIMAL  NUMBER  9.99  in  34) 


24* 
25* 
26* 
27* 
28* 
29* 
30* 
31* 
32* 
33* 
34* 
35* 
36* 
37* 
38* 
39* 
40* 
41* 
43* 
47* 
44* 
45* 
46* 
47* 
48* 


FVC-PCT  (NON-KEY  INTEGER  NUMBER  999  IN  34) 


FEV03-EXP 

FEVO5-0BS 

FEVOS-PCT 

FEVOS-FVC 

FEVl-EXP 

FEVl-OBS 

FEVl-Fcr 

FEV 1 -FVC 

FEV3-EXF 

FEV3-0BS 


(NON-KEY 
(NON-)  EY 
(NON-)  EY 
(NON-)  EY 
(NON-KEY 
(NON-K  EY 
(NON-f  EY 
(NON-)  EY 
(NON-)  EY 
(NON-)  EY 


decimal  number  9.99  IN  34) 
decimal  number  9.99  IN  34) 
INTEGER  NUMBER  999  IN  34) 
INTEGER  NUMBER  999  IN  34) 


decimal 

decimal 

INTEGER- 

INTEGER 

decimal 

decimal 


NUMBER 

NUMBER- 

NUMBER 

NUMBER 

NUMBER 

number 


9.99  IN  34) 
9.99  IN  34) 
999  IN  34) 
999  IN  34) 
9.99  IN  34) 
V.  99  IN  34) 
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Exhibit  6-1:  PULMONARY  Database  Definition  (continued) 


49*  FEV3-PCT  (NON-t^EV  INTEGER  NUMBER  999  IN  74) 

30*  EEV3-FVC  (NON-KEY  INTEGER  NUMBER  999  IN  74) 

SI*  FEFO-75  (NON-).EY  DECIMAL  NUMBER  99.99  IN  74) 

32*  FEF25-73-EXP  (NON-KEY  DECIMAL  NUMBER  9.99  IN  74) 

S3*  FEF25-7S-0BS  (NON-KEY  DECIMAL  NUMBER  9.99  IN  74) 

34*  FEF23-73-PCT  (NON-^EY  INTEGER  NUMBER  999  IN  74)  I 

53*  FEF73-85-EXP  (NON-)^EY  DECIMAL  NUMBER  9.99  IN  74) 

5i*  FEF73-e5-0&S  (NON-) EY  DECIMAL  NUMBER  9.99  IN  74) 

37*  FEF75-83-PCT  (NON-(EV  INTEGER  NUMBER  999  IN  74) 

58*  VMAXSO-EXP  (NON-)  EY  DECIMAL  NUMBER  9.99  IN  74) 

39*  VMAX30-QBS  (NON-).EY  DECIMAL  NUMBER  9.99  IN  74) 

AO*  VMAX50-PCT  (NON-) EY  INTEGER  NUMBER  999  IN  74) 

Al*  VMAX75-EXF  (NUN-)EY  DECIMAL  NUMBER  9.99  IN  74) 

A2*  VMAX73-0BS  (NON-r)EY  DECIMAL  NUMBER  9.99  IN  74) 

A7*  VMAX73-FCT  (MON-)EY  INTEGER  NUMBER  999  IN  74)  ’ 

A4*  REF-e,<R  (NaN-)EY  DECIMAL  NUMBER  99.99  IN  74) 

AS*  FEF-OBS  (NON-KEY  DECIMAL  NUMBER  99,99  IN  74) 

AA*  REF-RCT  (NON-) EY  INTEGER  NUMBER  999  IN  '4) 

A7*  PIF-EXP  (NON-)EY  DECIMAL  NUMBER  99.99  IN  74) 

A8*  RIF-OBS  (NON-) EY  DECIMAL  NUMBER  99.99  IN  74) 

a9*  PIF-RCT  (NON-) EY  integer  NUMBER  999  in  74) 

70*  TLC-EXP  (NON-)EY  DECIMAL  NUMBER  9.99  IN  ’4) 

71*  TLC-OBS  (NON-KEY  DECIMAL  NUMBER  9.99  IN  74)  * 

72*  TLC-PCT  (NON-)  EY  INTEGER  NUMBER  999  IN  74) 

77»  FRC-EXP  (NON-KEY  DECIMAL  NUMBER  9.99  IN  74) 

74*  FRC-QBS  (NON-) EY  DECIMAL  NUMBER  9.99  IN  74) 

75*  FRC-RCT  (NON-)  EY  INTEGER  NUMBER  999  IN  74) 

76*  RV-EXP  (NON-)  EY  DECIMAL  NUMBER  9.99  IN  74) 

77*  RV-OBS  (NON-).EY  DECIMAL  NUMBER  9.99  IN  74) 

78*  RV-RCT  (NOri-)EV  INTEGER  NUMBER  999  IN  74) 

79*  RV-TLC  (NON-)EY  INTEGER  NUMBER  999  IN  74)  I 

80*  DLCO-EXP  (NON-) EY  DECIMAL  NUMBER  99.99  IN  74) 

81*  DLCO-OBS  (NON-).EV  DECIMAL  NUMBER  99.99  IN  74) 

82*  OLCO-RCT  (NON-) EY  INTEGER  NUMBER  999  IN  74) 

87»  VA-EXF  (NON-)  EY  DECIMAL  NUMBER  9.99  IN  74) 

84*  VA-OBS  (NON-KEY  DECIMAL  NUMBER  9.99  IN  74) 

85*  VA-RCT  (NON-KEY  INTEGER  NUMBER  999  IN  74) 

86*  OLCO-VA-EXP  (NON-KEY  DECIMAL  NUMBER  9.99  IN  74) 

87*  DLCO-VA-OBS  (NON-)  EY  DECIMAL  NUMBER  9.9®  IN  74)  ) 

88*  DLCO-VA-PCT  (NON-KEY  INTEGER  NUMBER  999  IN  74) 

89*  TLC-VA  (NON-KEY  INTEGER  NUMBER  999  IN  74) 

90*  N2-WA3H0UT  (NON-KEY  DECIMAL  NUMBER  99.99  IN  74) 

98*  ARTERIAL-GASES  (RECORD  IN  3) 

99*  EXERCISE  (CHAR  X  IN  9B> 

100*  INSPIRED-02-PCT  (NON-KEY  INTEGER  NUMBER  999  IN  98) 

101*  HGB  (NON-)EY  DECIMAL  NUMBER  99.9  IN  90) 

102*  CO-HGB  (NON-KEY  DECIMAL  NUMBER  99.9  IN  98)  J 

107*  SA02  (NON-KEY  INTEGER  NUMBER  999  IN  98) 

104*  PA02  (NON-).EY  INTEGER  NUMBER  999  in  90) 

105*  PAC02  (NON-)  EY  INTEGER  NUMBER  99  IN  90) 

106*  PH  (NON-KEY  DECIMAL  NUMBER  9.99  IN  98) 


I 


I 
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Exhibit  6-2:  PULMONARY  Sample  Input  Forms 
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Cbapter  6.1:  PULSELPKRS 
Purpose 

This  step  determines  whether  the  Person  selected  (based  on  SSAN) 
exists  in  the  PULMONARY  data  base.  If  it  does,  a  step  is  called 
which  allows  the  user  to  continue  updating  the  data  base.  If  not, 
a  step  is  called  which  allows  the  user  Insert  the  new  person. 

Called  From 


This  step  is  called  from  ECGMENPERS  when  the  option  is  chosen  to 
update  the  PUUiONARY  data  base. 

Screen 


None. 

Logic 

1.  Select  PUL  PERSON  on  current  SSAN.  If  found,  go  to 
PULSELEXAM. 

2.  Else,  go  to  PULINSPERS. 

Validation 


None 
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I 


Chapter  6.2:  FULXRSPBRS 
Purpose 

The  purpose  of  this  step  Is  to  allow  the  user  to  insert  a  person 
that  does  not  exist  in  the  PITL  data  base.  Person  data  entered  into 
the  data  base  must  be  the  same  as  what  s  in  ECG.  Called  From 

PULSELPERS. 

Screen 


PULINSPERS 

Logic 

1.  IF  insert-person  option  field  =  *Y', 

Insert  PUL  PERSON  after; 
go  to  PULSELEXAM. 

2.  IP  insert-person  option  field  ••  'N*, 

go  to  ECGMENPERS. 

Validation 

1.  Insert-person  option  field  mandatory  (YESNOTBL,  exists). 


I 


I 


I 


I 


» 


» 


» 


I 


•  •  • 
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Exhibit  6-3:  POLIHSPESS  -  Insert  k  Person  Into  Tbs  Data  Base 


Insert  person  _ 

<ssan>  <name>  <dob>  <sex> 

-  -  _  /  / 


1.  All  fields  protected  except  for  insert-person  option  field. 

2.  SWI  for  insert-person  option  field  is  Insert  record. 
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Chapter  6.3:  PUUELEXAM 

Purpose 

The  purpose  of  this  step  Is  to  first  determine  how  many.  If  any, 
exae  records  exist  In  the  data  base.  If  no  records  exist,  the  step 
Is  called  which  allows  the  user  to  Insert  exams;  If  1  to  4  records 
exist  (Inclusive),  the  step  is  called  to  display  up  to  4  records 
for  the  user's  selection;  finally.  If  there  are  more  than  4 

records,  the  step  Is  called  which  displays  the  records  for  the  user 
up  to  14  at  a  time. 

Called  From 


PULSELPERS  when  a  person  exists  in  the  data  base  at  access  time  and 
PULINSPERS  when  a  person  has  been  added  to  the  data  base. 

Screen 


None. 

Logic 

1.  Select  EXAMS  records  on  SSAN. 

2.  If  $DATASN  Is 

a)  0,  go  to  PULINSEXAM. 

b)  n,  where  1  ^  n  ^4, 

go  to  PULSELEXAM4. 

c)  n,  where  n  >^4, 

go  to  PULSELEXAM14. 

Validation 


None. 
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Chapter  6.4:  P0LSELEXAM4 

Purpose 


To  display  existing  PULMONARY  exams  up  to  four  at  a  time.  The  user 
can  exit,  select  an  existing  exam  for  optional  modification  or 
choose  to  Insert  a  new  exam. 

Called  From 


This  step  Is  entered  from  PULSELEXAM  when  there  are  between  1  and 
4  EXAM  records  In  the  data  base. 

Screen 


PULSELEXAM4. 

Logic 

1.  Retrieve  up  to  4  EXAMS  records  and  display  the  screen. 

2.  If  the  select-exam  option  field  • 

a)  blank, 

Issue  message  and  return  to  Phase  2. 

b)  'O' .  go  to  ECGMENPERS. 

c)  'n',  where  n  »  $DATASP, 

go  to  FULMODEXAM. 

d)  'n' ,  where  1  ^  n  <  $DATASN, 

rewind  sibling  chain, 
retrieve  record  via  $S2KC0UNT, 
go  to  FULMODEXAM. 

e)  ' n' ,  where  n  >  $DATASN, 

go  to  PUINSERTEXAM. 

Validation 


1.  Select  exam  option  field  -  numeric.  If  exists. 

2.  All  other  fields  are  protected. 


Page  6-12 
Chapter  6.4 


Exhibit  6-4:  nniSELEXAM4  -  Select  Free  Op  To  4  Bxaaa 


<S8an>  <name> 

select  exam  _ 

type  case  # 

1  _  _ 

2 

3  _  _ 

4 


0  none  of  the  above 


<dob> 


<sex> 


doe 
/_/ 
■/  r 
■/  /■ 
Tr 


time 


age 


1.  This  screen  Is  used  when  the  number  of  exams  found  Is  between  1 
and  4  (Inclusive). 

2.  All  fields  except  for  select-exam  option  field  are  protected. 


•  •  •  • 


•  • 
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Chapter  6.5:  FI1LSBUXAM14 

Purpose 

To  display  existing  PUL  exams  up  to  14  at  a  time.  The  user  can 
exit,  select  an  existing  exam  for  optional  modification  or  choose 
to  Insert  a  new  exam. 

Called  From 

This  step  is  entered  from  PULSELEXAM  when  more  than  4  EXAMS  records 
exist  in  the  PUUIONARY  data  base. 

Screen 

PULSELEXAM14. 

Logic 

Retrieve  up  to  14  EXAMS  records. 

Number  screen  accordingly,  and  display. 

If  $OATASP  <  $DATASN,  then  issue  message: 

"PRESS  RETURN  TO  SEE  MORE  RECORDS". 

If  $DATASP  ■  $DATASN  and  $DATASM  >  14,  then  Issue  message: 

"PRESS  RETURN  TO  SEE  PRIOR  RECORDS". 

If  'select  record'  (SWI  for  select-exam  option  field)  Is 
blanks,  if  $DATASP  ■  $DATASN,  rewind  locate  file, 
go  to  phase  1. 

0,  go  to  ECGMENPERS. 

n,  where  n  -  $DATASP,  go  to  PULMODEXAM. 
n,  where  1  ^  n  £  $DATASN, 

rewind  the  sibling  chain; 
retrieve  the  nth  record  via  $S2KC0UKr; 
go  to  PULMODEXAM. 
n,  where  n  >  $DATASN, 
go  to  PULINSEXAM. 

Validation 


1. 


The  select-exam  option  field  (SWI  select  record) 
if  present. 


numeric 


» 
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Exhibit  6-5:  FOLSELEXAMU  -  Select  Froa  Dp  To  14  Bxaaa 


1.  This  screen  is  identical  to  PULSEl£XAM4  except  that  it  will 
accommodate  up  to  14  exams  per  screen. 

2.  All  data  on  the  screen  is  protected  except  for  the  select-exam 
option  field. 

3.  The  SWI  name  for  the  select-exam  option  field  is  select  record. 

4.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 


•  « 
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Chapter  6.6:  njDBBXAM 

Purpose 

To  allow  the  user  to  Insert  a  new  PULMONARY  exam. 

Called  From 

This  step  is  entered  when  a  person  has  no  PULMONARY  exams 
(including  the  case  when  the  person  was  just  Inserted  in  the  data 
base)  and  when  the  user  chooses  insert  from  PULSELEXAM4  or 
PULSELEXAM14. 

Screen 

PULINSEXAM. 

Logic 

Blank  exams  fields  and  display  screen. 

If  insert-exam  option  field  (SWl  insert  record)  =  N, 

If  $DATASN  >  0, 

go  to  PULSELBXAM. 

El  se 

go  to  ECGMENPERS. 

If  insert-exam  option  field  (SMI  Insert  record)  =  Y, 

If  CIS  4  Y, 

If  C19,  C20,  C21,  C22,  and  C23  4  null,  Issue  message: 
"INCONSISTENT  ANSWERS  PROVIDED";  go  to  phase  2. 

Else  If  CIS  -  Y, 

If  C19,  C22,  or  C23  null,  issue  message: 

"INCONSISTENT  ANSWERS  PROVIDED";  go  to  phase  2. 

If  C19  -  N, 

If  C20  ■  null,  Issue  message: 

"INCONSISTENT  ANSWERS  PROVIDED”;  go  to  phase  2. 

Else  If  C19  -  Y, 

If  C20  and  C21  4  null,  issue  message: 

"INCONSISTENT  ANSWERS  PROVIDED”;  go  to  phase  2. 

If  C20  -  'N', 

If  C21  •  null,  issue  message: 

"INCONSISTENT  AZ’SWERS  PROVIDED";  go  to  phase  2. 

If  C20  -  'Y'  , 

If  C21  4  null,  issue  message: 

"INCONSISTENT  ANSWERS  PROVIDED”;  go  to  phase  2. 
calculate  PACK  YEARS  -  C23*C22. 

Insert  EXAMS  record  after, 
go  to  PUIMODEXAM. 


I 


I 


<> 


9) 


4r 


I 


I 


I 


I 


I 


» 


» 


•  •  • 


•  « 
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Validation 


insert  record 

mandatory,  table  (YBSNOTBL,  exists). 

Grade 

mandatory,  table  (GRADSTBL,  previously  defined) 

Type 

mandatory,  table  (TYPETBL,  previously  defined). 

Case  no 

mandatory,  range  (1-25000). 

Age 

mandatory,  range  (17-60). 

also  validate  against  DOB  and  DOE. 

Time 

mandatory,  range  (0700-1700). 

partial  field  HRS  with  range  (07-17) 
partial  field  MIN  with  range  (00-59) 

Temp 

range  (16-27). 

Ht 

mandatory,  range  (150-210). 

Wt 

mandatory,  range  (40.0-130.0). 

C18-C20,C25-C28 

table  (YESNOTBL,  exists). 

Bsa 

range  (1.0-2. 7). 

Baro 

range  (730-795). 

< con tinned  next  page> 
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Validation  (continued) 
Whole  years  since  quit 

range 

(1-50). 

Total  years  smoked 

range 

(1-50). 

Avg  ppd 

range 

(0. 1-4.0). 

Hours  since  smoked 

range 

(1-100). 

Ecollzer 

range 

(1-50). 

PFT-WNL 

table 

(YESNOTBL,  exists). 

Bronchodllated  mandatory. 

table 

(YESNOTBL,  exists). 

FVC  OBS 

range 

(2. 0-9.0). 

FEV05  OBS 

range 

(1. 0-6.0). 

FEVl  OBS 

range 

(1. 5-7.0). 

FEV3  OBS 

range 

(2. 0-8.0). 

FEF  25  75  OBS 

range 

(0. 5-9.0). 

FEF  75  85  OBS 

range 

(0. 1-6.0). 

VMAX  50  OBS 

range 

(0.1-10.0). 

VMAX  75  OBS 

range 

(0.3-8. 0). 

PEF  OBS 

range 

(1.0-17.0). 

PIF  OBS 

range 

(1.0-17.0). 

TLC  OBS 

range 

(3.0-11.0). 

FRC  OBS 

range 

(1. 5-7.0). 

RV  OBS 

range 

(0. 3-5.0). 

PLCO  OBS 

range 

(14.0-65.0). 

VA  OBS 

range 

(1.0-11.0). 

N2  Washou.: 

range 

(1. 0-5.0) . 

•  •••••• 
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Exhibit  6-6:  FOLIK^XAM  -  Insert  Pulmonary  Exam 


<ssan>  <name> 

Insert  exam  _ 

grade  type  case  no 


doe 

/  / 


<dob>  <sex> 


time  age 


temp 

c 


ht 

cm 


wt 


bsa  baro 


tech 

ssan 


tech 

Initials 


ever  smoked  cigarettes  for  one  year  _  if  no 

smoke  cigarettes  now  _  If  yes 

quit  cigarettes  less  than  one  year  _  If  yes 

whole  years  since  quit  cigarettes  _ 

total  years  cigarettes  smoked  regularly  _  <— - 

over  smoking  years  average  packs  per  day - - 1- 

pack  years  _  1 

bx  asthma  ever  < - — - - - - - <- 


hx  chronic  cough 
hx  recent  cold 
fm  hx  lung  dx 
hours  since  smoked 
ecollzer 
pft  wnl 


1.  Pack  years  DBI  Is  protected  along  with  first  row.  For  vertical 

dashes,  use  the  character  which  is  the  shift  on  the  reverse 
slash. 


+ 


•  •  •  • 
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Chapter  6.7:  PDLMOOEXAM 


Purpose 

To  allow  the  user  to  modify  an  existing  PUL  EXAMS  record. 

Called  From 

This  step  is  entered  when  the  user  selects  an  exam  in  PULSELEXAMA 
or  PULSELEXAM14  or  after  an  exam  is  inserted  in  PULINSEXAM. 

Screen 
PULMODE XAM. 


Logic 

Move  HT  to  PRIORHT,  WT  to  PRIORWT,  and  AGE  to  PRIORAGE. 


Display  screen. 

If  modlfy-exam  option  field  (SWI  modify  record)  =  N, 


go  to  PULMENEXAM. 

If  modlfy-exam  option  field  (SWI  modify  record)  =  Y, 

If  CIS  Y, 

If  C19,  C20,  C21 ,  C22,  and  C23  /  null,  issue  message: 


"INCONSISTENT  ANSWERS 
Else  If  CIS  -  Y, 

If  C19,  C22,  or  C23 

"INCONSISTENT  ANSWERS 
If  C19  »  N, 

If  C20 

"INCONSISTENT  ANSWERS 
Else  If  C19  -  Y, 

If  C20  and  C21 

"INCONSISTENT  ANSWERS 


PROVIDED";  go  to  phase  2. 

=  null,  issue  message: 

PROVIDED";  go  to  phase  2. 

=  null,  issue  message: 

PROVIDED";  go  to  phase  2. 

^  null,  issue  message: 
PROVIDED";  go  to  phase  2. 


If  C20  =-  'N', 

If  C21  “  null,  issue  message: 

"INCONSISTENT  ANSWERS  PROVIDED";  go  .o  phase  2. 

Else  If  C20  =  ’Y’, 

If  C21  f  null,  issue  message: 

"INCONSISTENT  ANSWERS  PROVIDED";  go  to  phase  2. 
calculate  PACK  YEARS  -  C23*C22. 


issue  a  modify  for  EXAMS  record. 

If  HT  PRIORHT  or  WT  i  PRIORWT  or  AGE  4  PRICRAGE, 


retrieve  PFTS  records  one  at  a  time, 

for  each  PFTS  record,  re-compute  all  'EXP'  items, 

re-compute  all  'PCT'  items, 
modify  the  record. 

on  EOD,  go  to  phau.j  1. 
go  to  phase  1. 


Note;  EXP  and  PCT  items  are  recomputed 

according  to  the  rules  in  Appendix  B. 


I 


I 


» 


» 


I 


I 


> 


I 


•  •  • 


•  •  '  « 


I 
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Validation 


modify  record 

mandatory. 

Grade 

mandatory. 

Type 

mandatory. 

Case  no 

mandatory. 

Age 

mandatory. 

Time 

mandatory. 

Temp 

Ht 

mandatory, 

Wt 

mandatory, 

C18-C20,C25-C28 

Bsa 

Baro 


table  (YESNOTBL,  exists), 
table  (GRADETBL,  previously  defined), 
table  (TYPETBL,  prevl  usly  defined), 
range  (1-25000). 
range  (17-60). 

also  validate  against  DOB  and  DOE. 
range  (0700—1700). 

partial  field  HRS  with  range  (07-17). 
partial  field  MIN  with  range  (00-59). 

range  (16-27). 

range  (150-210). 

range  (40.0-130.0), 

table  (YESNOTBL,  exists). 

range  (1. 0-2.7). 

range  (730-795). 


» 


» 


» 


» 


<continued  next  page> 

» 


» 


» 


I 
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Validation  (continued) 
Whole  years  since  quit 

range  (1-50). 

Total  years  smoked 

range  (1-50). 

Avg  ppd 

range  (0. 1-4.0). 

> 

Hours  since  jmoked 

range  (1-100). 

Ecollzer 

range  (1-50). 

PFT-WNL 

table  (YESNOTBL,  exists). 

> 

Bronchodllated  mandatory. 

table  (YESNOTBL,  exists). 

FVC  OBS 

range  (2. 0-9.0). 

FEV05  OBS 

range  (1. 0-6.0). 

» 

FEVl  OBS 

range  (1. 5-7.0). 

FEV3  OBS 

range  (2.0-8.0). 

FEF  25  75  OBS 

range  (0. 5-9.0). 

FEF  75  85  OBS 

range  (0. 1-6.0). 

VMAX  50  OBS 

range  (0.1-10.0). 

VMAX  75  OBS 

range  (0. 3-8.0). 

1 

PEF  OBS 

range  (1.0-17.0). 

PIF  OBS 

range  (1.0-17.0). 

TLC  OBS 

range  (3.0-11.0). 

» 

FBC  OBS 

range  (1. 5-7.0). 

- 

RV  OBS 

range  (0. 3-5.0). 

PLCO  OBS 

range  (14.0-65.0). 

» 

VA  OBS 

range  (i. 0-11.0). 

N2  Washout 

range  (1.0-5.0). 

» 


•  •  •  •  •  •  •  • 
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Exhibit  6-7:  FULHODEXAM  -  Modify  Exam  Record 


1 

1 

1  <s8an>  <name> 

1 

<dob> 

<sex> 

1 

1  modify  exam  _ 

1 

1  grade  type  case  no 

doe 

time 

age 

/  / 


temp 

ht 

wt 

tech 

tech 

c 

cm 

kg 

bsa 

baro 

ssan 

initials 

ever  smoked  cigarettes  for  one  year  _  if  no  - + 

smoke  cigarettes  now  _  if  yes - 1-  | 

quit  cigarettes  less  than  one  year  _  if  yes  - >1  1 

whole  years  since  quit  cigarettes  _  |  | 

total  years  cigarettes  smoked  regularly  _  < - +  ! 

over  smoking  years  average  packs  per  day  - - 1 

pack  years  _  J  | 


hx  asthma  ever  _  <— — - - - - - 

hx  chronic  cough  _ 

hx  recent  cold  _ 

fm  hx  lung  dx  _ 

hours  since  smoked  _ 

ecollzer  _ 

pft  wnl  _ 


1.  Pack  years  DBI  Is  protected  along  with  first  row.  For  vertical 
dashes,  use  the  character  which  is  the  shift  on  the  back  slash. 


•  ••••••• 
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Chapter  6.8:  niLMENEXAM 

Purpose 

This  step  allows  the  user  to  go  to  steps  which  allow  the  selection 
of  a  new  person,  a  new  data  base,  an  updating  method  for  the  PUL 
data  base,  or  to  exit  the  PUL  data  base. 

Called  From 

This  step  Is  entered  from  PULMODBXAM  and  lower  level  steps  that 
have  completed. 

Screen 

PULMENEXAM. 

Logic 

Display  screen. 


If  select 
0,  go 

next  step  option 
to  exit; 

1. 

go 

to 

ECGSELPERS. 

2. 

go 

to 

ECGMENPERS. 

3. 

go 

to 

PULSELEXAM. 

4. 

go 

to 

PULSELBASE. 

5, 

go 

to 

PULSELBRON. 

6, 

go 

to 

PULSELABAR. 

7, 

go 

to 

PULSELABWE. 

Validation 


1.  Select  next  step  option  field  -  numeric,  range  (0-7).' 


•  •  • 


•  •  • 
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Exhibit  6-8:  TOLMBNEXAM  -  Menu  for  Updating  EXAMS  Deacendents 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  no>  <doe>  <age>  <tlnie> 

select  next  step  _ 

1  person 

2  data  base 

3  select  new  exam 

4  update  baseline  spirometry 

5  update  bronchodllated  spirometry 

6  update  arterial  bloodgases  at  rest 

7  update  arterial  bloodgases  with  exercise 

0  exit 


1.  First  three  rows  are  protected. 

2.  -  SWI  for  select-next-step  option  field  Is  unprotected. 


•  ••••••• 
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Chapter  6.9:  PDLSELBASE 
Purpose 

This  step  first  determines  If  a  baseline  spirometry  (PFTS  type 
record)  exists  for  the  current  patient.  If  it  does,  PULMODBASE  is 
called  to  allow  the  user  to  modify  the  baseline  spirometry.  If  a 
baseline  spirometry  does  not  exist,  PULINSBASE  is  called  to  allow 
the  user  to  Insert  a  new  baseline  record.  After  insert,  the  user 
is  allowed  to  modify  the  spirometry.  PULMODBASE  returns  to 
PULMENEXAM  for  another  transaction. 

A  baseline  spirometry  is  determined  by  the  B rone hod Hated  component 
in  the  data  base.  If  it  does  not  exist  or  is  N,  it  is  a  baseline 
spirometry.  If  Bronchodllated  equals  Y,  it  is  a  Bronchodllated 
type  PFTS  record. 

Called  From 


PULMENEXAM. 

Screen 


None. 

Lo84.<r 

Select  PFTS  records  on  SSAN,  DOE  and  (C35  =•  null  or  C35  =•  N). 

If  NODATA, 

go  to  PULINSBASE. 

If  SDATASN  -  1, 

retrieve  PFTS  record; 
go  to  PUmODBASE. 

If  $DATASN  >  1, 
issue  mesage: 

"MORE  THAN  ONE  BASELINE  SPIROMETRY  FOR  THIS  EXAM" 
go  to  PULMENEXAM. 

Validation 

None. 
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Chapter  6.10:  FULIEBASB 

Purpose 

The  purpose  of  this  step  is  to  allow  the  user  to  Insert  a  new 
baseline  type  spirometry  (PFTS)  record  Into  the  PUL  data  base. 

Called  From 

This  step  Is  called  from  PULSELBASE. 

Screen 

PULINSBASEl,  PULINSBASE2,  and  PULINSBASE3. 

Logic 

Calculate  EXP  values  for  all  baseline  OBS  fields  (RE:  Appendix  B); 
Clear  Insert  record. 

Display  PULINSBASEl. 

If  Insert  baseline  spirometry  option  field  ■■  Y, 

calculate  PCT  and  2VC  on  baseline  OBS  fields  (that  exist); 
calculate  EXP  values  for  all  flow  volume  curve  OBS  fields; 
clear  Insert  record; 
display  PULINSBASE2; 

If  Insert  flow  volume  curves  option  field  =  Y, 

calculate  PCT  values  on  existing  flow  volume  curve  OBS  fields; 
calculate  EXP  values  for  all  blood  gases  OBS  fields; 
clear  Insert  record; 
display  PULINSBASE2; 

If  Insert  gas  studies  option  field  Y, 

calculate  PCT  values  on  existing  blood  gases  OBS  fields; 
set  SWI  Bronchodllated  *  N; 

Insert  record; 
go  to  PULMODBASE. 

Else 

go  to  PULMENEXAM. 

Else 

go  to  PULMENEXAM. 

Else 

go  to  PULMENEXAM. 

Note:  The  pet  fields  are  computed  in  Phase  III  as  one 
hundred  times  the  ratio  of  observed  to  expected.  The 
Zve  fields  are  computed  In  Phase  III  as  one  hundred 
times  the  ratio  of  observed  fev  to  observed  fvc. 


» 


I 


•  •  • 


•  • 


I 


4 


K 
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I 

Validation 

For  each  screen  In  this  step,  insert  record  (SWI  for  various  option 
fields)  Is  mandatory,  (YESNOTBL,  exists). 

All  other  fields  protected  except  for  OBS  fields.  * 

All  OBS  fields  are  optional. 


Bronchodllated 

mandatory,  table  (YESNOTBL,  exists). 

FVC  OBS 

range  (2. 0-9.0). 

» 

FEV05  OBS 

range  (1. 0-6.0). 

FEVl  OBS 

range  (1. 5-7.0). 

FEV3  OBS 

range  (2. 0-8.0). 

» 

FEF  25  75  OBS 

range  (0. 5-9.0). 

FEF  75  85  OBS 

range  (0, 1-6.0). 

VMAX  50  OBS 

range  (0.1-10.0) . 

> 

VMAX  75  OBS 

range  (0. 3-8.0). 

PEF  OBS 

range  (1.0-17.0) . 

PIF  OBS 

range  (1.0-17.0). 

1 

TLC  OBS 

range  (3.0-11.0) . 

FRC  OBS 

range  ( 1 . 5-7 . 0 ) . 

RV  OBS 

range  (0. 3-5.0). 

1 

PLCO  OBS 

range  (14.0-65.0). 

VA  OBS 

range  (1.0-11.0). 

N2  Washout 

range  (1. 0-5.0), 

» 

< 


» 


I 


J 
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Exhibit  6-9:  FOLIKSBASEl  -  Insert  Baseline  Splronetry  (Screen  1) 


I  I 

>  I 

1  <ssan>  <naiBe>  <dob>  <sex>  | 

!  <type>  <caae  nQ>  <doe>  <age>  <time>  j 


insert  baseline  spirometry  _ 

baseline  spirometry 

exp  oba  pet  Zve 

fvc  _  _  _ 

fev  0.5  _  _  _  _ 

fev  1.0  _  _  _  _ 

fev  3.0  _  _  _  _ 

fef  0-25  _ 

fef  25-75  _  _  _ 

fef  75-85 


1.  Exp  values  are  calculated  from  rules  in  Appendix  B. 

2.  All  fields  are  protected  except  insert  baseline  spirometry  option 
field  and  obs  fields.  The  pet  and  Zve  fields  are  calculated  from 
rules  listed  in  Appendix  B  if  the  obs  fields  are  entered. 


» 


J 


I 


» 


» 


I  ( 


» 


> 


» 


» 


» 


•  • 


Page  6-29 
Chapter  6.10 


I 


Exhibit  6-10:  FULDBBASE2  -  Insert  Plow  Voliai*  Curves  (Screen  2) 


i 


I 


% 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  no>  <doe>  <age>  <tlme> 

Insert  flow  volume  curves  _ 

baseline  spirometry  -  flow  volume  curves 
exp  obs  pet 

V  max  50  _  _  _ 

V  max  75  _  _  _ 

pef  _  _  _ 

pif  _  _  _ 


» 


I 


»  I 


1.  Exp  values  are  calculated  from  rules  In  Appendix  B. 

2.  All  fields  are  protected  except  Insert  flow  volume  curves  option 
field  and  obs  fields.  The  pet  and  Ivc  fields  are  calculated  from 
rules  listed  In  Appendix  B  If  the  obs  fields  are  entered. 


•  •  • 


4 
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Exhibit  6-11:  F11LDBBASE3  -  Insert  Gas  Studies  (Screen  3) 


» 


» 


A 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  no>  <doe>  <age>  <time> 


Insert  gas  studies  _ 

baseline  spirometry  -  gas  studies 

exp  obs  pet 

tic  _  _  _ 

fre  _  _  _ 

rv  _  _  _ 

rv/tlc  _ 

dlco  _  _  _ 

va  _  _  _ 

dlco/va  _  _  _ 

tlc/va  _ 

n2  washout  _ 


1.  Exp  values  are  calculated  from  rules  in  Appendix  B. 

2.  All  fields  are  protected  except  Insert  gas  studies  option  field 
and  obs  fields.  The  pet  and  Zve  fields  are  calculated  from  rules 
listed  in  Appendix  B  if  the  obs  fields  are  entered. 


I 


> 


I 


>  ( 


» 


» 


» 


» 
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r'*^pter  6.11:  FDLMOOBASE 

Purpose 

The  purpose  of  this  step  Is  to  allow  the  user  to  modify  a  baseline 
type  spirometry  (PFTS)  record  into  the  PUL  data  base. 

Called  From 

This  step  is  called  from  PULMENEXAM  and  PULINSBASE. 

Screen 

PULMODBASEl,  PULM0DBASE2,  and  PULMODBASE3. 

Logic 

Move  values  to  screen  fields  for  PULMODBASEl. 

Clear  modify  record. 

Display  PULMODBASEl. 

If  modify  baseline  spirometry  option  field  »  Y, 

re-calculate  PCT  and  %VC  on  baseline  OBS  fields  (that  change); 
issue  a  modify  for  baseline  portion  of  PFTS  record; 
go  to  PULMODBASEl  phase  2. 

If  modify  baseline  spirometry  option  field  »  N, 
move  values  to  screen  fields  for  PULM0DBASE2; 

4  clear  modify  record; 

display  PUIM0DBASE2; 

If  modify  flow  volume  curves  option  field  =•  Y, 

re-calculate  PCT  values  on  fvc  OBS  fields  (that  change); 
issue  a  modify  for  flow  volume  curves  portion  of  PFTS  record; 
go  to  PULM0DBASE2  phase  2. 

If  modify  flow  volume  curves  option  field  =»  N, 
move  values  to  screen  fields  for  PULM0DBASE3; 
clear  modify  record; 

display  PULM0DBASE3; 

If  modify  gas  studies  option  field  »  Y, 

re-calculate  PCT  values  on  gas  studies  OBS  fields; 
issue  a  modify  for  gas  studies  portion  of  PFTS  record 
go  to  PULM0DBASE3  phase  2. 

If  modify  gas  studies  option  field  =•  N, 
go  to  PULMENEXAM. 

Note:  The  pet  fields  are  computed  in  Phase  III  as  one 
hundred  times  the  ratio  of  observed  to  expected.  The 
%vc  fields  are  computed  in  Phase  III  as  one  hundred 
times  the  ratio  of  observed  fev  to  observed  fvc. 


•  •  • 
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Validation 

For  each  screen  In  this  step,  modify  record  (SWI  for  various  option 
fields)  Is  mandatory,  (YESNOTBL,  exists). 

All  other  fields  protected  except  for  OBS  fields. 

All  OBS  fields  are  optional. 


Bronchod  Hated 

mandatory,  table 

(YESNOTBL,  exists) 

FVC  OBS 

range 

(2. 0-9.0). 

FEV05  OBS 

range 

(1. 0-6.0). 

FEVl  OBS 

range 

(1. 5-7.0). 

FEV3  OBS 

range 

(2. 0-8.0). 

FEF  25  75  OBS 

range 

(0. 5-9.0). 

FEF  75  85  OBS 

range 

(0. 1-6.0). 

VMAX  50  OBS 

range 

(0.1-10.0). 

VHAX  75  OBS 

range 

(0. 3-8.0). 

PEF  OBS 

range 

(1.0-17.0). 

PIF  OBS 

range 

(1.0-17.0). 

TLC  OBS 

range 

(3.0-11.0). 

FRC  OBS 

range 

(1. 5-7.0). 

RV  OBS 

range 

(0. 3-5.0). 

PLCO  OBS 

range 

(14.0-65.0). 

VA  OBS 

range 

(1.0-11.0). 

N2  Washout 

range 

(1. 0-5.0). 

» 


» 


4r 


I 


I 


» 


» 


» 


> 


I 


» 
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Exhibit  6-12;  POLMODBASEl  -  Modify  Baseline  Splroaetry 


<88^  n>  <na]ne>  <dob>  <8ex> 

<type>  <case  no>  <doe>  <age>  <tline> 


modify  baaellne  jplrometry 

baaellne  spirometry 

exp  obs  pet  %vc 


fev  0.5 
fev  1.0 
fev  3.0 
fef  0-25 
fef  25-75 
fef  75-85 


1.  All  fields  are  protected  except  modify  baseline  spirometry  option 
field  and  obs  fields  The  pet  and  Xvc  fields  are  calculated  from 
rules  listed  In  Appendix  B  If  the  obs  fields  are  changed. 


•  •  •  • 

. . - -  . — - -  - - -  .  ........  ^ 


I* 


Page  6-34 
Chapter  6.11 

Exhibit  6-13:  raiM0DBASE2  -  Modify  Flov  VoliAo  Curves  (Screw  2) 

I 

I 

1  <ssan>  <name>  <dob>  <sex> 

I  <type>  <case  n6>  <doe>  <age>  <tline> 

I 

I 

1 

I  modify  flow  volume  curves  ^ 

I 

I  baseline  spirometry  -  flow  volume  curves 

I 

I 

I  exp  obs  pet 

I 

I 

1  V  max  50  _  _  _ 

I 

I  V  max  75 

H  ZL  _ 

i  pif  _  _  _ 


1.  All  fields  are  protected  except  modify  flow  volume  curves  option 
field  and  obs  fields.  The  pet  and  Xvc  fields  are  calculated  from 
rules  listed  in  Appendix  B  if  the  obs  fields  are  changed. 


0 
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Exhibit  6-14:  PULM0DBASS3  -  Modify  Gas  Studies  (Screen  3) 


<88act>  <aame>  <dob>  <sex> 

<type>  <case  no>  <doe>  <age>  <tline/> 


modify  gas  studies  _ 

baseline  spirometry  -  gas  studies 

exp  obs  pet 

tic  _  _  _ 

fre  _  _  _ 

rv  _  _  _ 

rv/tlc  _ 

dlco  _  _  _ 

va  _  _  _ 

dlco/va  _  _  _ 

tlc/va  _ 

n2  washout  _ _ 


1.  All  fields  are  protected  except  modify  gas  studies  option  field 
and  obs  fields.  The  pet  and  %vc  fields  are  calculated  from  rules 
listed  In  Appendix  B  If  the  obs  fields  are  changed. 


•  •  • 


•  •  ■  -  • 
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Chapter  6.12:  FDLSELBROM 

Purpose 

This  step  first  determines  if  a  Bronchodilated  spirometry  (PFTS 
type  record)  exists  for  the  current  patient.  If  It  does, 

PULMODBRON  Is  called  to  allow  the  user  to  modify  the  Bronchodilated 
spirometry.  If  a  Bronchodilated  spirometry  does  not  exist, 
PULINSBRON  Is  called  to  allow  the  user  to  Insert  a  new 

Bronchodilated  PFTS  record.  After  Insert,  the  user  Is  allowed  to 
modify  the  spirometry.  PULMODBRON  returns  to  PULMENEXAM  for 
another  transaction. 

A  Bronchodilated  spirometry  is  determined  by  the  Bronchodilated 
component  In  the  data  base.  If  uronchod Hated  equals  Y,  it  is  a 
Bronchodilated  type  PFTS  record.  If  it  does  not  exist  or  Is  N,  It 
Is  a  baseline  spirometry. 

Called  From 


PULMENEXAM. 

Screen 


None. 

Logic 

Select  PFTS  records  on  SSAN  and  C6  »  DOE  and  C35  ■  Y. 

If  NODATA, 

go  to  PULINSBRON. 

If  $DATASN  -  1, 

retrieve  PFTS  record; 
go  to  PULMODBRON. 

If  $DATASN  >  1, 

Issue  mesage: 

"MORE  THAN  ONE  BRONCHODILATED  SPIROMETRY  FOR  THIS  EXAM” 
go  to  PULMENEXAM. 

Validation 

None. 
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Chapter  6.13:  FOLIKSBRON 

Purpose 

The  purpose  of  this  step  is  to  allow  the  user  to  Insert  a  new 
bronchodllated  type  spirometry  (PFTS)  record  into  the  PUL  data 
base. 

Called  From 

This  step  is  called  from  PULSELBRON. 

Screen 

PULINSBRONl,  PULINSBR0N2,  and  PULINSBR0N3. 

Logic 

Calculate  EXP  values  for  all  bronchodllated  OBS  fields; 

Clear  insert  record. 

Display  PULINSBRONl. 

If  Insert  bronchodllated  spirometry  option  field  ••  Y, 
calculate  PCT  and  %VC  on  OBS  fields  (that  exist); 
calculate  EXP  values  for  all  flow  volume  curve  OBS  fields; 
clear  insert  record; 
display  PULINSBR0N2; 

If  insert  flow  volume  curves  option  field  =  Y, 

calculate  PCT  values  on  fvc  OBS  fields  (that  exist); 
calculate  EXP  values  for  all  blood  gases  OBS  fields; 
clear  insert  record; 
display  PULINSBR0N2; 

If  insert  gas  studies  option  field  =  Y, 

calculate  PCT  values  on  existing  bg  OBS  fields; 
set  SWl  Bronchodllated  =  Y; 
insert  record; 
go  to  PULMODBRON. 

Else 

go  to  PULMENEXAM. 

Else 

go  to  PULMENEXAM. 

Else 

go  to  PULMENEXAM. 

Note:  The  pet  fields  are  computed  In  Phase  III  as  one 
hundred  times  the  ratio  of  observed  to  expected.  The 
Xvc  fields  are  computed  in  Phase  III  as  one  hundred 
times  the  ratio  of  observed  fev  to  observed  fvc. 


I 
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I 

Validation 

Insert  record  (SWI  for  various  bronc hod Hated  option  fields)  mandatory, 

(YESNOTBL,  exists)  on  all  screens. 

All  other  fields  protected  except  for  OBS  fields.  ^ 

All  OBS  fields  are  optional. 


Bronc  hod  Hated 

mandatory,  table  (YESNOTBL,  exists). 

FVC  OBS 

range  (2. 0-9.0). 

1 

FEV05  OBS 

range  (1. 0-6.0). 

FEVl  OBS 

range  (1. 5-7.0). 

FEV3  OBS 

range  (2.0-8. 0). 

» 

FEF  25  75  OBS 

range  (0. 5-9.0). 

FEF  75  85  OBS 

range  (0. 1-6.0). 

VMAX  50  OBS 

range  (0.1-10.0). 

1 

VMAX  75  OBS 

range  (0. 3-8.0). 

PEF  OBS 

range  (1.0-17.0). 

PIF  OBS 

range  (1.0-17.0). 

» 

TLC  OBS 

range  (3.0-11.0). 

FRC  OBS 

range  (1. 5-7.0). 

RV  OBS 

range  (0. 3-5.0). 

1 

PLCO  OBS 

range  (14.0-65.0). 

VA  OBS 

range  (1.0-11.0). 

N2  Washout 

range  (1. 0-5.0). 

1 

» 


•  •  •  •  •  •  •  • 
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Exhibit  6-15:  nLIKBRiMl-Iasere  BronchodllaCed  Splroaetry 


<ssan>  <na]iie>  <dob>  <sex> 

<type>  <case  no>  <doe>  <age>  <tlme> 

Insert  bronchodllated  spirometry  _ 

bronchodllated  spirometry 
exp  obs  pet  %vc 

fvc  _  _  _ 

fev  0.5  _  _  _  _ 

fev  1.0  _  _  _  _ 

fev  3.0  _  _  _  _ 

fef  0-25  _ 

fef  25-75  _  _  _ 

fef  75-85 


1.  Exp  values  are  calculated  from  rules  In  Appendix  B. 

2.  All  fields  are  protected  raccept  insert  bronchodllated  spirometry 
option  field  and  obs  fields.  The  pet  and  %vc  fields  are 
calculated  from  rules  listed  in  Appendix  B  If  the  obs  fields  are 
entered. 


•  ••••••• 
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Exhibit  6-16:  PinjDBBIlOIIZ-lnMrt  Bronchodllated  Flow  VoIum  Curves 

-* - 

I 

I 

I  <ssan>  <name>  <dob>  <sex> 

1  <type>  <case  no>  <doe>  <age>  <tlme> 

I 

I 

I 

I 

I  Insert  flow  volume  curves  _ 

I 

1  bronchodllated  spirometry  -  flow  volume  curves 

I 

I 

I  exp  obs  pet 

I 

I 

j  v  max  50  _  _  _ 

I 

I  v  max  75  _  _  _ 

j  pef  _  _  _ 

I  plf  _  _  _ 


1.  Exp  values  are  calculated  from  rules  in  Appendix  B. 

2.  All  fields  are  protected  except  Insert  flow  volume  curves  option 
field  and  obs  fields.  The  pet  and  Zve  fields  are  calculated  from 
rules  listed  In  Appendix  B  If  the  obs  fields  are  entered. 


•  •  •  • 
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Exhibit  6-17:  FOLUSBKONS-Insert  Bronchodllatcd  Gas  Studies  Screea3 


% 


<s8an> 

<type> 


<name> 
<case  no> 


<doe> 


<dob> 

<age> 


<sex> 

<  tlme> 


insert  gas  studies  _ 

bronc  hod  Hated  spirometry  -  gas  studies 
exp  obs  pet 


tic 

fre 

rv 

rv/ tic 


dlco 

va 

dlco/va 

tlc/va 

n2  washout 


1.  Exp  values  are  calculated  from  rules  In  Appendix  B. 

2.  All  fields  are  protected  except  insert  flow  volume  curves  option 
field  and  obs  fields.  The  pet  and  Zve  fields  are  calculated  from 
rules  listed  In  Appendix  B  If  the  obs  fields  are  entered. 


•  ••••••• 
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Chapter  6.14:  FULMODBKON 

Purpose 

The  purpose  of  this  step  Is  to  allow  the  user  to  nodlfy  a 
bronchodllated  type  spirometry  (PPTS)  record  In  the  PUL  data  base. 
Although  this  step  requires  three  screens,  a  modify  Is  Issued  for 
the  data  contained  on  each  screen  to  the  corresponding  portion  of 
the  PFTS  record  in  the  data  base . 

Called  From 

This  step  Is  called  from  PULSELBRON  and  PULINSBRON. 

Screen 

PULMODBRONl,  PULM0DBR0N2,  and  PULMODBRON3. 

Logic 

Move  values  to  screen  fields  for  PULMODBRONl. 

Clear  modify  record. 

Display  PULMODBRONl. 

If  modify  bronchodllated  spirometry  option  field  =•  Y, 
re-calculate  PCT  and  ZVC  on  OBS  fields  (that  change); 

Issue  a  modify  for  first  portion  of  PFTS  record; 
go  to  PULMODBRONl  phase  2. 

If  modify  baseline  spirometry  option  field  ■  N, 
move  values  to  screen  fields  for  PULM0DBR0N2; 
clear  modify  record; 

display  PULM0DBR0N2; 

If  modify  flow  volume  curves  option  field  =  Y, 

re-calculate  PCT  values  on  fvc  OBS  fields  (that  change); 

Issue  a  modify  for  flow  volume  curves  portion  of  PFTS  record; 
go  to  PULM0DBR0N2  phase  2. 

If  modify  flow  volume  curves  option  field  “  N, 
move  values  to  screen  fields  for  PULM0DBR0N3; 
clear  modify  record; 

display  PULM0DBR0N3; 

If  modify  gas  studies  option  field  =•  Y, 

re-calculate  PCT  values  on  gas  studies  OBS  fields; 

Issue  a  modify  for  gas  studies  portion  of  PFTS  record 
go  to  PU1M0DBR0N3  phase  2. 

If  modify  gas  studies  option  field  »  N, 
go  to  PULMENEXAM. 

Note:  The  pet  fields  are  computed  In  Phase  III  as  one 
hundred  times  the  ratio  of  observed  to  expected.  The 
Xvc  fields  are  computed  In  Phase  III  as  one  hundred 
times  the  ratio  of  observed  fev  to  observed  fvc. 


I 


I 


I 


» 


» 


I 


» 


> 


» 


•  • 


..S.V  I 
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Validation 

Modify  record  (SWI  for  various  bronchod Hated  option  fields)  tsandatory, 
(YESNOTBL,  exists)  on  all  screens. 

All  other  fields  protected  except  for  DBS  fields. 

All  OBS  fields  are  protected. 

Bronchodllated  mandatory,  table  (YESNOTBL,  exists) . 


FVC  OBS 


range  (2. 0-9.0). 


FEV05  OBS 


range  (1. 0-6.0). 


FEVl  OBS 


range  (1. 5-7.0). 


FEV3  OBS 


range  (2.0— 8.0). 


FEF  25  75  OBS 


range  (0. 5-9.0), 


FEF  75  85  OBS 


range  (0. 1-6.0). 


VMAX  50  OBS 


range  (0.1-10.0), 


VHAX  75  OBS 


range  (0. 3-8.0). 


PEF  OBS 


range  (1.0-17.0), 


PIF  OBS 


range  (1.0-17.0), 


TLC  OBS 


range  (3.0-11.0), 


FRC  OBS 


range  ( 1 . 5-7 . 0 ) . 


RV  OBS 


rai^e  (0. 3-5.0), 


PLCO  OBS 


range  (14.0-65.0). 


VA  OBS 


range  (1.0-11.0), 


N2  Washout 


range  (1. 0-5.0). 
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Exhibit  6-18:  niLMODBRmi-lfodlfy  Broncbodilated  Splroaetry 

I 

I 

I  <S8aa>  <naae>  <dob>  <sex> 

!  <type>  <case  no>  <doe>  <age>  <tiae> 

I 

I 

!  modify  bronchodllated  spirometry  _ 

I 

I  bronchodllated  spirometry 

I 

t 

I  exp  obs  pet  %vc 

I 

I 

!  fvc  _  _  _ 

1  fev  0.5  _  _  _  _ 

!  fev  1.0  _  _  _  _ 

j  fev  3.0  _  _  _  _ 

1  fef  0-25 

I  — — 

i  fef  25-75  _  _  _ 

i  fef  75-85  _ 


1.  Exp  values  are  calculated  from  rules  in  Appendix  B. 

2.  All  fields  are  protected  except  modify  bronchodllated  spirometry 
option  field  and  obs  fields.  The  pet  and  7,vc  fields  are 
calculated  from  rules  listed  in  Appendix  B  If  the  obs  fields  are 
entered. 
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Exhibit  6-19:  FULMODBRCKIl-Modify  BroochodiUccd  Flow  VoluM  Curvoe 

I  I 

I  I 

I  <ssan>  <name>  <dob>  <sex>  | 

1  <type>  <ca8e  no>  <doe>  <age>  <time>  | 

I  I 

I  ) 

I  I 

I  1 

I  modify  flow  volune  curves  _  \ 

I  I 

I  bronchodilated  spirometry  -  flow  volume  curves  | 

I  I 

I  I 

I  exp  obs  pet  I 

I  I 

I  I 

1  V  max  50  | 

I  I 

1  V  max  75  | 

I  I 

j  pef  I 

I  I 

!  Pif  1 


1.  Exp  values  are  calculated  from  rules  in  Appendix  B. 

2.  All  fields  are  protected  except  modify  flow  volume  curves  option 
field  and  obs  fields.  The  pet  and  Xvc  fields  are  calculated  from 
rules  listed  in  Appendix  B  if  the  obs  fields  are  entered. 
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Exhibit  6-20:  FaLM00BR(Mi3-Modlf7  Bronchod Hated  Gae  Studies  Screen3 


<S8an> 

<naffle> 

<dob> 

<sex> 

<type> 

<case  no> 

<doe> 

<age> 

<time> 

modify  gas  studies  _ 

bronchodllated  spirometry  -  gas  studies 

exp  obs  pet 

tic  _  _  _ 

fre  _  _  _ 

rv  _  _  _ 

rv/ tic  _ 

dlco  _  _  _ 

va  _  _  _ 

dlco/va  _  _  __ 

tlc/va  _ 

n2  washout 


1.  Exp  values  are  calculated  from  rules  in  Appendix  B. 

2.  All  fields  are  protected  except  modify  flow  volume  curves  option 
field  and  obs  fields.  The  pet  and  Zve  fields  are  calculated  from 
rules  listed  in  Appendix  B  If  the  obs  fields  are  entered. 
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i 


I 


Chapter  6.15:  FOLSELABAR 

Purpose 

This  step  first  determines  if  an  “at-resf  type  Arterial  Gases 
lanS  current  patient.  If  it  does.  PULMODABAR  is 

user  to  modify  the  "at-resf  Arterial  Gases 
11  j  -at-rest  type  record  does  not  exist,  PULINSABAR  is 

®  "at-rest"  Arterial  Gases 

I  allowed  to  modify  the  record. 

PULMODABAR  returns  to  PULMENEXAM  for  another  transaction. 


"wlth-exercise"  type  Arterial  Gases  record  is 
determined  by  the  Exercise  component  In  the  PUL  data  base.  If 

ArtJrif?  "at-rest"  type 

Arterial  Gases  record.  If  Exercise  is  equal  to  Y, 

"wlth-exercise"  type  Arterial  Gases  record. 

Called  From 


then  it  i 


s  a 


PULMENEXAM. 

Screen 


None. 

Logic 

Select  ARTERIAL  GASES  records  on  5SAN  and  C6  =  DOE  and 
(C35  =■  N  or  C35  »  null). 

If  NODATA, 

go  to  PULINSABAR. 

If  $DATASN  »  1, 

retrieve  ARTERIAL  GASES  record; 
go  to  PULMODABAR. 

If  $DATASN  >  1, 
issue  mesage: 

"MORE  THAN  ONE  AT-REST  ARTERIAL  GASES  RECORD  FOR  THIS  EXAM" 
go  to  PULMENEXAM. 

Validation 

None.  I 


» 


•  • 


•  •  •  •  •  • 
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Chapter  6.16:  FULUISABAR 

Purpose 

The  purpose  of  this  step  Is  to  allow  the  user  to  Insert  a  new  "at- 
rest”  Arterial  Gases  record  Into  the  PUL  data  base. 

An  "at-rest"  or  "with- exercise"  type  Arterial  Gases  record  is 
determined  by  the  Exercise  component  in  the  PUL  data  base.  If 
Exercise  is  null  or  equal  to  N,  then  it  is  an  "at-rest"  type 
Arterial  Gases  record.  If  Exercise  is  equal  to  Y,  then  it  is  a 
"wlth-exerclse"  type  Arterial  Gases  record. 

Called  From 

This  step  is  called  from  PULSELABAR. 

Screen 

PULINSABAR. 

Logic 

Display  PULINSABAR. 

If  Insert  arterial  blood  gases  at  rest  option  field  •  Y, 
set  SWI  Exercise  =  N; 
insert  record; 
go  to  PUmODABAR. 

Else 

go  to  PULMENEXAM. 

Validation 

Insert  record  (SWI  for  insert  arterial  blood  gases  at  rest  option 
field)  -  mandatory,  (YESNOTBL,  exists). 

Inspired  02  pet  -  optional,  range  (10-100). 

Hgb  -  optional,  range  (5.0-18.0). 

Co  hgb  -  optional,  range  (0.5-20.0). 

Sa  02  -  optional,  range  (30-100). 

Pa  02  -  optional,  range  (50-680). 

Pac  02  -  optional,  range  (10-50). 

Ph  -  optional,  range  (6.85-7.60). 
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Exhibit  6-21:  PDLIRSABAR  -  Insert  Arterial  Gases  "At  Rest"  Record 


<S8an>  <name>  <dob>  <sex> 

<type>  <case  no>  <doe>  <age>  <tline> 


Insert  arterial  blood  gases  at  rest 

arterial  blood  gases  at  rest 

Inspired  02  pet  _ 

hgb  _ 

co-hgb  _ 

sa02  _ 

pa02  _ 

pac02  _ 

Ph  _ 


1.  First  two  rows  are  protected. 

2.  All  other  fields  are  unprotected. 
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Chapter  6.17:  FQLNODABAR 


Purpose 

The  purpose  of  this  step  Is  to  allow  the  user  to  modify  an  "at- 
rest”  Arterial  Gases  record  Into  the  PUL  data  base. 

An  "at-rest"  or  "with- exercise"  type  Arterial  Gases  record  Is 
determined  by  the  Exercise  component  In  the  PUL  data  base.  If 
Exercise  Is  null  or  equal  to  N,  then  It  is  an  "at-rest"  type 
Arterial  Gases  record.  If  Exercise  Is  equal  to  Y,  then  It  Is  a 
"withrexerclse"  type  Arterial  Gases  record. 

Called  From 

This  step  Is  called  from  PULSELABAR  or  PULINSABAR. 

Screen 

PULMODABAR. 


Logic 

Move  values  to  screen  fields. 

Display  screen. 

If  modify  arterial  blood  gases  at  rest  option  field  =  Y, 
modify  record; 
go  to  phase  2. 

Else 


go  to  PULMENEXAM. 

Validation 

Modify  record  (SWI  for  insert  arterial  blood  gases  at  rest  option 


field) 

Inspired  02  pet 

Hgb 

Co  hgb 

Sa  02 

Pa  02 

Pac  02 

Ph 


-  mandatory,  (YESNOTBL,  exists). 

-  range  (10-100). 

-  range  (5.0-18.0). 

-  range  (0.5-20.0). 

-  range  (30-100). 

-  range  (50-680). 

-  range  (10-50). 

-  range  (6.85-7.60). 


T 


» 


» 


* 


» 


» 


» 


» 


» 


» 


I 
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Exhibit  6-22:  PULMODABAR  -  Modify  Arterial  Gases  "At  Rest"  Record 


1.  First  two  rows  are  protected. 

2.  All  other  fields  are  unprotected. 


•  '  • 
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Chapter  6.18:  FDLSELAItfE 

Purpose 

This  step  first  determines  if  an  "exercise"  type  Arterial  Gases 
record  exists  for  the  current  patient.  If  it  does,  PULMODABWE  Is 
called  to  allow  the  user  to  modify  the  “exercise"  Arterial  Gases 
record.  If  an  "exercise"  type  record  does  not  exist,  PULINSABWE  is 
called  to  allow  the  user  to  Insert  a  new  "exercise"  Arterial  Gases 
record.  After  Insert,  the  user  is  allowed  to  modify  the  record. 
PULMODABWE  returns  to  PULMENEXAM  for  another  transaction. 

A  "wlth-exerclse"  or  an  "at-rest"  type  Arterial  Gases  record  is 
determined  by  the  Exercise  component  In  the  PUL  data  base.  If 
Exercise  is  equal  to  Y,  then  it  is  a  "with-exercise"  type  Arterial 
Gases  record.  If  Exercise  is  null  or  equal  to  N,  then  it  is  an 
"at-rest"  type  Arterial  Gases  record. 

Called  From 

PULMENEXAM. 

Screen 


None. 

Logic 

Select  ARTERIAL  GASES  records  on  SSAN  and  C6  =•  DOE  and  C35  -  Y. 

If  NODATA, 

go  to  PULINSABWE. 

If  $DATASN  -  1, 
go  to  PULMODABWE. 

If  $DATASN  >  1, 
issue  message: 

"MORE  THAN  ONE  ARTERIAL  GASES  RECORD  WITH  EXERCISE  FOR  THIS  EXAM" 
go  to  PULMENEXAM. 

Validation 


None 
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Chapter  6.19:  FOLIISABUE 


Purpose 

The  purpose  of  this  step  Is  to  allow  the  user  to  insert  a  new  "with 
exercise"  Arterial  Gases  record  into  the  PUL  data  base. 

A  "with-exercise"  or  an  ”at-rest"  type  Arterial  Gases  record  is 
determined  by  the  Exercise  component  In  the  PUL  data  base.  If 
Exercise  is  equal  to  Y,  then  it  Is  a  "with-exercise"  type  Arterial 
Gases  record.  If  Exercise  is  null  or  equal  to  N,  then  it  is  an 
"at-rest"  type  Arterial  Gases  record. 

Called  From 

This  step  is  called  from  PULSELABWE. 

Screen 

PULINSABWE. 


Logie 

Display  PULINSABWE. 

If  insert  arterial  blood  gases  with  exercise  option  field  »  Y, 
set  SWI  Exercise  =■  Y; 

Insert  record; 
go  to  PULMODABWE. 

Else 


gc  to  PULMENEXAM. 


Validation 

Insert  record  (SWI 

field) 

Inspired  02  pet  - 
Hgb 
Co  hgb 
Sa  02 
Pa  C2 
Pac  02 
Ph 


for  insert  arterial  blood  gases  with  exercise  option 

-  mandatory,  (YESNOTBL,  exists). 

-  optional,  range  (10-100). 

-  optional,  range  (5.0-18.0). 

-  optional,  range  (0.5-20.0). 

-  optional,  range  (30-100). 

-  optional,  range  (50-680). 

-  optional,  range  (10-50). 

-  optional,  range  (6.85-7.60). 


I 


Jtr 


» 


I 


» 


» 


» 


» 


» 


•  •  • 


•  •  • 
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Exhibit  6-23: 

POLniSABWE-InMrt  Arterial 

Gases  With 

Exercise  Record 

1 

1 

1 

1  <ssan> 

<name> 

<dob> 

<sex> 

1 

1 

1 

1 

1 

1  <type> 

1 

<case  no>  <doe> 

<age> 

<tinie> 

i 

1 

1 

Insert  arterial  blood  gases  with  exercise 

arterial  blood  gases  with  exercise 

Inspired  02  pet  _ 

hgb  _ 

co-hgb  _ 

sa02  _ 

pa02  _ 

pac02  _ 

ph  _ 


1.  First  two  rows  are  protected. 

2.  All  other  fields  are  unprotected. 


» 


» 


» 


•  ••••• 


1- - 1 
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Chapter  6.20:  POLMODABtfE 


Purpose 

The  purpose  of  this  step  is  to  allow  the  user  to  modify  a  “with 
exercise"  Arterial  Gases  record  into  the  PUL  data  base. 

A  "with- exercise”  or  an  "at-rest”  type  Arterial  Gases  record  is 
determined  by  the  Exercise  component  in  the  PUL  data  base.  If 
Exercise  is  equal  to  Y,  then  it  is  a  "with-exercise"  type  Arterial 
Gases  record.  If  Exercise  is  null  or  equal  to  N,  then  it  is  an 
"at-rest"  type  Arterial  Gases  record. 

Called  From 

This  step  Is  called  from  PULSELABME  or  PULINSABWE. 

Screen 

PULMODABWE. 


Logic 

Move  values  to  screen  fields. 

Display  screen. 

If  modify  arterial  blood  gases  with  exercise  option  field  =  Y, 
modify  record; 
go  to  phase  2. 

Else 


go  to  PULHENEXAM. 

Validation 

Modify  record  (SWI  for  insert  arterial  blood  gases  with  exercise  option 
field)  -  mandatory,  (YESNOTBL,  exists). 

Inspired  02  pet  -  range  (10-100). 

-  range  (5.0-18.0). 

-  range  (0.5-20.0). 

-  range  (30-100). 

(50-680). 


Hgb 
Co  hgb 
Sa  02 
Pa  02 
Pac  02 
Ph 


-  range 


-  range  (10-50). 

-  range  (6.85-7.60). 


I 


I 


♦ 


» 


I 


» 


> 


I 


» 


» 


•  •  •  • 
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Exhibit  6-24;  PULMODASn-Modify  Arterial  Gases  With  Exercise  Record 

I 
I 

1  <ssan>  <name>  <dob>  <sex> 

1  <type>  <case  no>  <doe>  <age>  <time> 

I 
I 
i 
I 
i 

J  modify  arterial  blood  gases  with  exercise  _ 

I 
I 
t 

j  arterial  blood  gases  with  exercise 

I 
I 

1  inspired  02  pet  _ 

i  hgb 

I 
I 

1  co-hgb 

I  — — 

1  sa02  _ 

I  pa02  _ 

I  pac02  _ 

!  ph  _ 

I  - 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 

1*  First  two  rows  are  protected. 

2.  All  other  fields  are  unprotected. 
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PART  7:  THE  CATH  DATABASE 


The  CATH  data  base  definition  is  shown  in  the  following  exhibit 
followed  by  the  multipage  input  forms.  The  steps  that  perform 
updates  to  the  CATH  data  base  are  then  defined  and  presented. 
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Exhibit  7-1:  CATH  Database  Definition 


I 


^DESCRIBE: 

SYSTEM  RELEASE  NUMBER  r.RSB 
DATA  BASE  NAME  ISIZIZEI 

definition  number  r 

DATA  BASE  CYCLE  i.i 
O*  PERSON 

1*  SSAN  (CHAR  X (9) ) 

2*  NAME  (CHAR  X(19)) 

3*  DOB  (DATE) 

4*  SEX  (NON-KEY  CHAR  X) 

5»  CATHS  (RECORD) 

6»  TY=E  (NON-)  EY  CHAR  X  IN  S) 

7»  CASE  NO  (INTEGER  NUMBER  9(5)  IN  5) 
a*  DOE  (DATE  IN  5l 

9*  AGE  (NON-)EY  INTEGER  NUMBER  99  IN  5) 


1  !• 
12» 
17» 
14* 
15* 
16* 
17* 

la* 

19* 

20* 

21* 


24* 

26  ♦ 
27  ♦ 
2S* 


CATH  NO  (INTEGER  NUMBER  9oo9  IN  5) 

NO  FOR  PATIENT  (NQN-t EY  INTEGER  NUMBER  9  IN  5) 

GRADE  (NON-t  EY  CHAR  XXX  IN  5) 

HT  (NON-)EY  integer  DUMBER  999  IN  5) 

WT  (NON-) EY  decimal  number  999.9  IN  5) 

BSA  (NON-)EY  decimal  riUMBER  9.99  IN  3) 

ARTERIAL  CATH  TIME  (NON->EY  INTEGER  NUMBER  999  IN  5) 
AORTIC  SBP  (NON->EY  INTEGER:  NUMBER  999  IN  5) 

AORTIC  DBF  (NON-* EV  INTEGER  NUMBER  999  IN  5) 

AORTIC  PRESSURE  MEAN  (NON-) EY  INTEGER  NUMBER  =99  in 
LOSE  (NON-)EV  integer  NUMBER  999  IN  S) 

LVDP  (NON-) EY  integer  NUMBER  999  IN  5) 


LVEDP  PRE  ANiSIOGRARHY 
LV'cnc-  post  ANGICGRAPHy 

aortic  val'.'E  gradient 

MITRAL  VAL'-'E  gradient 


INTEGER  NUMBER  °99  IN  5) 
INTEGER  rjUMBER  999  IN  5) 
INTEGER  NUMBER  RRo  IN 
INTEGER  fJUMBER  “90  in 
INTEGER  NUMBER  999  IN  5) 


(NON-*  EY 
(NGN-)  EY 
(r)ON-*  EY 
■NON-)  EY 


29- 


21' 


24* 
35* 
26- 
37* 
28 
29* 
4<.i 
41  * 
42 
4  2 
44 
45* 
46 
47 

48 

49 


CARDIAC  INDEX  :MON-)EY 
TEAM  (RECCRD  IN  5) 

ROLE  (CHAR  X(6)  U)  28) 

MEMBER  (CHAR  x(6)  IN  28) 

SAM  referral  REASONS  (RECORD  IN  5) 

■  SAM  referral  PEASQM  (CH*.R  X(12)  in  21) 
clinical  REASGNS  (record  in  5) 

•  CLINICAL  REASON  (CHAR  X(6)  IN  22) 

electrocardiographic  reasons  (record  in  S) 

■  electrocardiographic  reason  (CHAR  X(6)  IN  25) 

PROCEDURES  USED  (RECORD  IN  5) 
f  PROCEDURE  USED  (CHAR  X(6)  IN  27) 
angiograms  CCMi^LETED  (record  IN  5) 

►  angiogram  completed  (CHAR  X(6)  IN  29) 
TECHNICUE3  (RECCRD  IN  5) 
t  APPROACH  'CHAR  < (6)  IN  41) 
t  CUTDOUIN  (NON-‘EV  CHAR  <  IN  41) 

X ( 6 )  IN  41) 

RECCRD  IN  5’ 

I  CHAR  X)*,)  IN  45) 

'CTICIS  'RECCRD  IN  5) 

)EY  INTEGER  NUMBER  9(5)  IN  47) 


REPAIR  (CH-R 
COMPLICATIONS 

*  CCMRLICATir/l 
LV  EJECTION  PR 

•  waR)'LCAD  (NON 


88' 


METHOD  (CHAR  <(5)  IN  47) 

LV  EJECTICN  RFACTICN  DiON- 
INTEPFRETATIONS  'RECORD  IN  I 
■  reading  (DATE  IN  51) 


*  EX 

,) 


INTEGER  NUMBER  99  in  47) 


I 


» 


» 


I 


I 


» 


» 


» 


•  •  • 


•  • 


tn  in 
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Exhibit  7-1;  CATH  Database  Definition  (continued) 


SUPRAVALVULAR  AORTOGRAPHY  NORMAL  (CHAR  X  IN  51) 

5~»  LEFT  VENTRICULOGRAPHY  NORMAL  (CHAR  X  IN  51)  ^ 

54*  CORONARY  angiography  NORMAL  (CHAR  X  IN  51) 

55*  CIRCULATORY  PATTERN  (CHAR  X(6)  IN  51) 

57*  CORONARY  calcification  (NON-t EY  CHAR  <  IN  51) 

58*  myocardial  bridge  (NON-) EY  CHAR  X  IN  51) 

59*  coronary  spasm  (non-)Ey  char  x  in  sd 
(bO*  COLLATERAL  PRESENT  (NON-)  EY  CHAR  X  IN  51) 

M*  CORONARY  ANOMALY  (NON-)  EY  CHAR  X  IN  51) 

56*  NUMBER  POSTERIOR  DESCENDING  BRANCHES  (NON-)EY  INTEGER  NUM  ^ 

BER  9  IN  51) 


59*  total  PCT  narrowed  (INTEGER  NUMBER  999  IN  51) 

61*  SUPRAVALVULAR  AORTOGRAPHY  FINDINGS  (RECORD  IN  51) 

EC*  supravalvular  aortography  finding  (CHAR  X(b)  IN  &1) 

63*  LV  CONTRACTION  ABNORMALITIES  (RECORD  IN  51) 

64*  ABNORMAL  LV  CONTRACTION  SITE  (CHAR  X(6)  IN  63)  » 

65*  LV  CONTRACTION  ABNORMALITY  (CHAR  X(6)  IN  63)  * 

66*  OTHER  LV  ABNORMALITIES  (RECORD  IN  51) 

67*  other  LV  ABNORMALITY  (CHAR  X(6)  IN  66) 

68*  CORONARY  CALCIFICATIONS  (RECORD  IN  51- 

69*  CCROMARY  calcification  SITE  (CHAR  <(6)  IN  60) 

70*  MYOCARDIAL  BRIDGES  (RECORD  IN  51) 

*71*  MYOCARDIAL  BRIDGE  SITE  (CHAR  X(6)  IN  70) 

72*  CORONARY  SPASMS  (RECORD  IN  51) 

b  73*  CORONARY  SPASM  SITE  (CHAR  x(6)  IN  70)  » 

74*  coronary  PLaOUES  (RECORD  IN  51) 

75*  CCPONARY  plaque  SITE  >CHAR  <(6)  IN  *4) 


73*  PCT  DIAMETER  NARROWED  (INTEGER  NUMBER  *99  IN  74) 

79*  COLLATERALS  (RECORD  IN  51) 

80*  COLLATERAL  ORIGIN  (NON-* EY  CHAR  XX  IN  79) 

81*  ANASTOMOSIS  (NON-),Ey  CHAR  XX  IN  79)  I 

9C«  SEGMENT  FILLED  (NON-)  EY  CHAR  XX  IN  79) 

83*  coronary  anomalies  (RECORD  IN  51) 

04*  coronary  anomaly  site  (CHAR  X(6)  IN  83) 

85*  DIAGNOSES  (RECORD  IN  51) 

86*  DIAGNOSIS  (CHAR  X(6)  IN  85) 

87*  READERS  (RECORD  IN  51) 

89*  READER  (CHAR  X (6)  IN  87) 
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Exhibit  7-2:  CAIHBKIZATKHI  Sample  Forms 


[  2a  CATHETEII2ATIOH 

liaa 

aSal - 

cmaoa 

cats  murnmtm 

OXTK  dZ 

ESA  (H^) 

ARTERIAL  CaTH  TUT 

BArcdl 

CATH  SEQUENCE  NO. 

HO.  FOR  PATIENT 

sicriOM  e  •  scecsaai.  coNtioceariont 

8.  Clinical  r«*aona  for  cardiac  cachacarizaclon  Iona  or  aocej 

01  -  Abnomal  alcccrocardlographlc  finding 

02  -  Angina,  daflntta  or  suspaccad 

03  -  Rlscory  of  ischamlc  eolsodas  or  Infarction 

04  -  Mitral  valva  dUaaaa,  suapacted  ^ 

05  -  Aortic  valva  dlaeaaa.  susp  '^d  / 

08  -  ParlcardUl  dlsaaaa.  auspac*..  I 

09  -  Risk  factor  proflla  suggaatlva  w.  coronary  dlsaasa 

11  -  Abnormal  KUCX 

12  •  Abnormal  atress  Thallium 

13  -  Suapacted  cardiomyopathy,  hypertropU 

14  >  Suaoactad  cardiomyopathy,  congastiva 
10  -  Other 


9,  Rlacercardlographlc  raaaona  for  cardiac  cathaterliatlon  (one  or  more) 

01  -  Nona,  normal  atudlaa  _ 

02  -  i«fc  bondla  branch  block  ^ 

03  -  Rleht  bundle  branch  block  (  I— . 

04  -  tottmyantrlcular  conduction  defect  _ x 

05  -  Supramantrlcular  tachycardia 

06  -  Acrtovancrtcular  block  -  laC,  2nd,  or  3rd  degraa 
07  -  Serial  T  wave  changaa 
08  •  Serial  ST  aegmant  changes 
09  -  Infarction  Pattern,  ECC  or  VCC 

17  .  paceeiakar  dysfunction  (a.g,  sick  sinus  syodroma,  etc.) 

19  -  Abnormal  ECC  response  to  exercise 

20  -  Ventricular  tachycardia,  resting  or  exercise  Induced 

18  •  Ocher 


AMD  VcT^ejUS 


encviout  VOITIOM  oe*OLfTC. 


» 


» 


» 


» 


» 


> 


» 


I 


> 


» 
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CAIHBRIZATION  Sample  Forms  (continued) 


I 


StCTiOn  c  .  CATHtTftllATtOM  FftOCCDUffft 

10.  Cjiihecfirxzacion  procedures  used  (  on*  or  nore) 


01 

02 

03 

04 

05 

06 

07 

03 

09 

13 
11 

14 

15 

16 


Tncravenous  cechecer,  stand  bv 
Intravenous  paclni{  electrode,  stand  by 
Sight  heart  catheterlrat ion 

Left  heart  catheterization,  retrograde  brachial 
Lett  heart  catheterlzat ion.  retrograde  tenoral 
HIS  bundle  electrocardiography 

HIS  bundle  electrocardiography  with  atrial  pacing 

Cardiac  oucout,  flck 

Cardiac  output,  cardiogreen 

Cardiac  outout.  thermodlLutlon 

Supine  blcvcle  ergoaecry 

Oxiaecry  shunt  series 

Drug  intervention  studies 

Other 


11.  Angiography  conpleted  (one  or  more) 

01  >  Right  atrial  anglograpnv 
02  -  Pulaonary  angiograsnv 
03  -  Forward  angiography 
04  -  Left  vencricuiar  angiography 
05  -  Suorava Iv-u lar  aortogr.ipny 
06  •>  Corcnarv  angiography.  Sones 
07  -  Coronarv  angiography.  Judkins 
09  •  Right  Ventricular  angiography 
10  -  Other 


12.  Catnecerizacion  technique  and  vessel  repair  (Enter  appropriate  nuaber  sequences) 


A 

1  -  Antecubital  vein,  right 

2  -  Saphenous  vein,  right 

3  -  Fenocai  vein,  right 

4  -  Bracnlal  artery,  right 

5  “  Feaorai  arcer;/,  right 


6  -  Antecubital  vein,  left 

7  •>  Saphenous  vein,  left 

8  »  Femoral  vein,  left 

9  •  Brachial  artery,  left 
0  -  Fenorai  artery,  left 


B 

Cutdown 

Percutaneous 


V 

-.V 


c 


CiJ 


1  -  Primary  arterial  reoair 

2  -  Pursestrtng  arterial  repair 

3  -  Ligation  venous 

4  -  Venous  repair 


A 

« 

c 

t 

__ 

I 


» 


> 


» 


» 


CY/ 
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Exhibit  7-2:  CATHBRIZATICHI  Sanple  Foma  (continued) 


w 


» 


* 


» 


•) 


*r 


.  •  'i. 

Coapllcac Ions  of  cordloe  cochoccrlxoclon  (ono  or  noro  nuabors) 

01  -  Non* 

02  -  Duch 

03  -  Myocardial  infareclon 

OA  -  Vanerlcular  f  Ibrillaclona  ^  ^ 

05  -  Vencrlcular  tachycardia  ^  \ 

06  -  Supravcaerlcular  tachycardia 

0/  -  Atrioventricular  block 

OS  Asystole  or  narked  bradycardia 

09  •  Any  arrhythaia  leading  to  discontinuation  of 
10  •  Profound  hypotension 

the  procedure 

11  -  Intraayocardlal  injection 

12  -  Myocardial  perforation 

13  Perforation  of  great  vessels 

14  .  OlAinlshed  pulse 

15  •  Loss  of  pulse  without  synptons 

J 

_ 

10  —  LOSS  or  pulse  with  synptons 

17  -  Loss  of  pulse  or  arterial  danage  requiring  auxgical 

repair 

18  .  A-V  fistula 

19  -  Vasovagal  reaction  requiring  treetnent 

20  -  Coaplece  heart  block 

21  -  Extracardiac  eabolic  phenonena 

22  -  Drug/concrasC  reaction 

23  o  Angina 

24  >  Equlpncnt  failure 

. 

1  SECTION  D  -  CATHETERIZATION  HEMODYNAMICS 

Aortic  pressure  (mmrig)  -  Systolic  [  f 

1  -  OlAatollc  { 

15. 

Aortic  pressure  (onKg)  -  Mean 

16. 

Left  ventricular  pressure  (anHg)  >  Systolic 

1  -  Diastolic 

17. 

End  diastolic  pressure  (mmHg)  (Before  Angiography) 

_ 

18. 

End  diastolic  pressure  (oniiHg)  (After  Angiography) 

i 

19, 

Aortic  valve  gradient  (saHg) 

1 

t 

20. 

Mitral  valve  gradient  (lamHg) 

( 

21. 

C.rdl«c  IndM:  L/Mln/K^  Q 

>  !  '  ! 

11 _ _ _ _ 

1  SECTION  E  -  SUPRAVALVULAR  AORTOCRAPHT 

22. 

Completed  (Y-N) 

LJ 

I 


I 


» 


I 


» 


I 


» 


» 


•  • 


I 


Exhibit  7- 


CATRBRIZAIKM  Saaple  Forms  (continued) 


23.  SupravalvulAr  aortography  (oaa  or  oora  by  nuaber) 

01  •  Normal 

02  -  Dllacatton  of  aorta 
03  Aneurysm  of  aorta 

04  «  Olaaeccion  of  aorta  •  y*  ^ 

OS  -  Unlcuapld  aortic  valve  L  ^ 

06  -  Bicuspid  aortic  valve 

07  -  Aneurysm  aims  valsalva 

08  >  Aortic  regurgitation.  Grade  X 

08  •  Aortic  regurgitation.  Grade  II 

10  Aortic  regurgitation.  Grade  III 

11  ~  Aortic  regurgitation.  Grade  IV 

12  -  Aortic  run  off  Lesion,  other 

13  Calcium,  ascending  aorta 

14  -  Calclua,  aortic  valve 

15  -  Ocher 


SECTION  F  -  LEFT  VENTRlCm-AR  ANCnoCRAPHT 


24.  Completed  (T-N) 


25  VCnTn*CUU*«  AMat06«*»**V  flA.  «  — IX*  KIW*  i»  aM/x  iH 

2«-  >.acA  r  >aM  amo  oc^imit  iom  Aei»ona*«,  caxmACTtou  ear  ren***  /i*i**i  i  — w»*«*  «««•*> 


27. 


Ocher  Left 
01  - 
02  - 
03  - 
04  - 
05  - 
06  - 
07  - 
08  - 
09  - 
10  - 

11  - 

12  - 

13  - 

14  - 


VcaCrlcular  Abnormalities  (one  or  more  numbers) 

Increased  left  ventricular  wall  thickness 

Thickened  mitral  valve 

Decreased  motion  mitral  valve 

Billowing  mitral  leaflet,  anterior  (prolapse) 

Billowing  mitral  leaflet,  posterior  (prolapse) 

Hltral  regurgitation.  Grade  I 

Mitral  regurgitation.  Grade  II 

Mitral  regurgitation.  Grade  HI 

Mitral  regurgitation.  Grade  IV 

Ventricular  septal  defect 

Calcium,  mitral  valve 

Calcium,  mitral  annulus 

Increased  left  ventricular  size 

Other 


f 

H 

C(i7 


'oa«  III 


AMO 
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;  CATHERIZATION  Sample  Forms  (continued) 


SeCTION  H  •  DIACaiOSXS 

01  -  tto  evidence  of  organic  heart  disease 
02  >  No  evidence  of  coronary  artery  disease 
OS  -  Hypercropnic  cardioayopachy 
06  -  Cardiootyopathy/  ocher 
01  Kortic  valve  disease,  A.  R. 

06  Aortic  valve  disease,  A.S. 

09  •  Aortic  valve  disease,  AJk-AS 

10  -  Mitral  valve  disease,  H. ft. 

11  -  Mitral  valve  disease,  H. 5. 

12  ■>  Mitral  valve  disease,  Mft^MS 

16  -  Pericardial  effusion 

17  -  Pericarditis,  chronic  constrictive 
Id  -  Hypertensive  cardiovascular  disease 

19  -  Pviioonic  stenosis,  valvular 

20  -  Pulronic  stenosis,  infundibular 

21  -  Tricuspid  valve  disease 

22  -  Lett  to  ri<5ht  shunt 

23  *■  Riqnt  to  left  shunt 

24  •  Mitral  valve  prolapse 

25  -  Significant  coronary  artery  disease 

26  -  Minixai  coronary  artery  disease 

27  -  inci.nal  rouqnenmq  only 

28  -  Momal  ventricular  function 

29  -  Abnoraa  ventricular  cunct -on 

30  -  Other 


^  Q  / 
(_  2  If 


rOKM  (II 
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» 


I 


» 


» 


» 


» 


» 


•  • 
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Chapter  7.1:  CASELPEHS 

Purpose 

This  step  determines  whether  the  current  SSAN  exists  In  the  CATH 
data  base.  If  the  SSAN  exists,  CASELEXAM  Is  called  to  allow  the 
user  a  choice  of  exams.  If  the  SSAN  does  not  exist,  the  user  Is 
given  the  option  of  adding  a  person  record  associated  with  the  SSAN 
through  CAINSPERS. 

Called  From 


This  step  is  entered  when  the  user  chooses  access  to  the  CATH  data 
base. 

Screen 


None . 
Logic 


Select  CA-PERSON  on  current  SSAN. 

If  $DATASN  -  1, 

go  to  CASELEXAM. 

Else 

If  $DATASN  -  0, 

go  to  CAINSPERS. 

Else 

If  $DATASN  >  1, 

issue  msg:  "SSAN  NOT  UNIQUE  IN  CATH,  CALL  BILL  NIXON" 
go  to  ECGSELPERS. 


Validation 


None. 
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Chapter  7.2:  CAlllSPElS 
Purpose 

This  step  allows  the  user  the  option  of  adding  a  person  record 
associated  with  the  current  SSAN. 

Called  Ftom 

CASELPERS. 

Screen 

CAINSPERS . 

Logic 

Move  PERSON  record  values  to  CA-PERSON. 

Display  screen. 

If  insert  record  (Insert-person-option  field)  *  Y, 

Insert  CA-PERSON  record  after, 
go  to  CAINSEXAM. 

If  Insert  record  (Insert-person-option  field)  ■  N, 
go  to  ECGMENPERS. 

Validation 

1.  Insert  record  (insert-person-option  field)  mandatory, 
table ( YESNOTBL ,  exists). 


0 
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Exhibit  7-3:  CAINSFESS  Screen  -  Insert  Person  In  CAtHETER 

— — — — — — - — - - - — — - - - - — - - — - — 4- 

I  I 

I  I 

1  insert  person  _  1 

I  I 

j  <ssan>  <name>  <dob>  <sex>  I 

I  yy/nm/ dd  1 

-  - _ _/  /  _  ! 


+ 


1.  All  Fields  are  protected  except  the  insert-person-option  field. 

2.  The  SWI  name  for  the  'insert-person'  option  field  is  Insert 
record. 
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Chapter  7.3:  CASELEXAM 

Purpose 

The  purpose  of  CASELEXAM  is  to  decide  if  there  are  0,  more  than  4, 
or  between  1  and  4  (inclusive)  CATHS  records  (exams)  in  the 
CATHETER  data  base.  If  there  are  no  CATHS  records,  CAINSEXAM  is 
called;  if  there  are  between  1  and  4  (inclusive)  CATHS  records, 
CASELEXAM4  is  called;  if  there  are  more  than  4  CATHS  records, 
CASELEXAM14  is  called;  There  are  no  screens  associated  with  this 
step. 

CASELEXAM  also  initializes  a  flag  (CAINSIFLAG)  which  is  used  in 
lower  level  steps  to  indicate  when  an  exam  record  has  just  been 
inserted  as  opposed  to  having  been  selected  via  select  steps. 

Called  From 
CASELPERS 

Screen 
None . 

Logic 


Set  CAINSIFLAG  =  N.  (initializes  insert  flag) 

•  Select  CATHS  records  on  SSAN. 

If  NODATA, 

go  to  CAINSEXAM. 

If  0  <  $DATASN  <  4 , 

go  to  CASELEXAM4. 

If  $DATASN  >  4, 

go  to  CASELEXAM14. 

Note:  CASELEXAM4  is  identical  to  CASELEXAM14 

except  that  it  only  retrieves  up  to  4  exams 
Instead  of  14  at  a  time) . 


Validation 
None . 


•  •  • 


•  • 


•  •  • 
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Chapter  7.4:  CASELEXAM4 

Purpose 


The  purpose  of  CASELEXAM4  Is  to  present  up  to  four  CATHS  exam 
records  to  the  user.  The  user  may  either  select  an  existing  exam 
for  review  or  modification,  choose  to  Insert  a  new  exam,  or  exit  to 
choose  another  person. 

Called  From 


This  step  Is  entered  when  the  current  person  has  between  one  and 
four  (Inclusive)  CATHS  records  In  the  data  base. 

Screen 


CASELEXAM4 

Logic 

1.  Retrieve  up  to  four  CATHS  records,  number  screen 

accordingly,  and  display. 

2.  If  'select  record*  (SWI  for  select-exam  option  field)  » 

a)  'O',  go  to  ECGMENPERS. 

b)  'n',  where  n  «  $DATASP,  go  to  CAMODEXAM. 

c)  'n',  where  1  <.  n  $DATASN,  rewind  the  CATHS  sibling 

chain  and  retrieve  the  nth  record  via  $S2KC0UNT.  Go  to 
CAMODEXAM. 

d)  'n' ,  where  n  >  $DATA3N,  go  to  CAINSEXAM. 

Validation 

1.  The  select-exam  option  field  (SWI  select  record)  - 

mandatory,  numeric. 


•  •  • 


•  • 


I 
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Exhibit  7-4:  CASELEXAM4  Screen  -  Select  4  CATHS  Exans  Fron  CATHETER 


i 


<ssan> 
select  exam 


type 


<name> 


case 

no 


1 

2 

3 

4 


0  none  of  the  above 


doe 

/  / 


<dob> 


cath 

no 


<sex> 


no  for 
patient 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
exam-optlon  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs. 


» 


I 


» 


•  • 


•  •  • 
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Chapter  7.5:  CASBLEXAM14 

Purpose 


The  purpose  of  CASELEXAM14  Is  to  present  up  to  fourteen  CATHS  exam 
records  to  the  user  at  a  time.  The  user  may  either  select  an 
existing  exam  for  review  or  modification,  choose  to  Insert  a  new 
exam,  or  exit  to  choose  another  person. 

Called  From 

This  step  Is  entered  when  the  current  person  has  more  than  four 
CATHS  records  In  the  data  base. 

Screen 

CASELEXAM14 

Logic 


1.  Retrieve  up  to  fourteen  CATHS  records,  number  screen 
accordingly,  and  display. 

2.  If  'select  record'  (SWI  for  select-exam  option  field)  =• 

a)  'O',  go  to  ECGMENPERS. 

b)  'n',  where  n  -  $DATASP,  go  to  CAMODEXAM. 

c)  'n',  where  1  <.  n  ^  $DATASN,  rewind  the  CATHS  sibling 

chain  and  retrieve  the  nth  record  via  $S2KC0UNT.  Go  to 
CAMODEXAM. 

d)  'n' ,  where  n  >  $DATASN,  go  to  CAINSEXAM. 

Validation 


1.  The  select-exam  option  field  (SWI  select  record) 
mandatory,  numeric. 
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Exhibit  7-5:  CASBLEXAM14  Screen  -  Select  14  Exams  From  CATHETER 


4r 


<ssan>  <name> 

select  exam 


type 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 


case 

no 


0 


none  of  the  above 


doe 

/  / 


<dob>  <sex> 


cath  no  for 

no  patient 


I 


I 


I 


I 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
exam-optlon  field. 

2.  The  SWI  name  for  the  option  field  is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


► 


I 


» 


T— 
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Chapter  7.6:  CAMOOEXAM 

Purpose 

To  allow  the  user  to  modify  an  existing  CATHS  record. 

Called  From 

CASELEXAM4  or  CASELEXAM14  when  the  user  selects  an  existing  exam  or 
CAINSEXAM  when  a  new  exam  is  entered. 

Screen 


I 


♦ 


» 


» 


CAMODEXAM 

Logic 


Display  screen. 

If  modify  record  (SWI  for  modlfy-exam-optlon  field)  «  N, 
go  to  CAMENEXAM. 

Else 

If  modify  record  (SWI  for  modify-exam-option  field)  =•  Y, 
issue  a  modify  CATHS  and  go  to  phase  1. 


Validation 


I 


Modify  exam 

Grade,  type  and  case  no  - 
Ht  and  wt 

Arterial  cath  time  - 

DOE 

Cath  # 

No  for  patient 

Aortic  sbp 

Aortic  dbp 

Mean 

Lvsp 

Lvdp 

Lvedp  pre  anglo  - 

Lvedp  post  anglo  - 

Aortic  value  gradients  - 
Mitral  value  gradients  - 
Cardiac  index 
Age 


mandatory,  table  (YESNOTBL,  exists). 

same  as  TREADMILL. 

same  as  ECG. 

range  (5-150). 

range  (69/04/23  -  $DATE) . 

range  (1-1400). 

range  (1-4). 

range  (70-210). 

range  (10-140). 

range  (50-150). 

range  (70-210). 

range  (0-90). 

range  (0-40). 

range  (0-50). 

range  (0-5). 

range  (0-20). 

range  ( 1 20-800 ) . 

range  (17-60)  and  compare  to  DOB. 


» 


> 


» 


» 


> 


•  •  • 


•  • 


1 

* 

✓ 
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V. 

1 

Exhibit  7-6:  CAMODBXAM  -  Modify  CATH  Exam  Record 

♦ 

1 

1 

1 

1  <ssan> 

1 

<name> 

<dob>  <sex> 

1  » 

» 

1 

1 

1  modify  exam 

1 

1 

1 

1 

1 

1 

1  grade  type 

1 

1 

case 

no 

ht  wt 

cm  kg 

arterial 

bsa  cath  time 

1 

> 

1 

1 

1 

i  doe 

!  /  / 

age 

cath  no 

no  for  patient 

1 

1 

1 

1 

1 

1 

left  ventricle  edp 

aortic 

1 

1 

1 

1  Ivsp  Ivdp 

1 

pre 

angio 

post 

angio 

spb  dbp  mean 

• 

1  _ 

1 

t 

1 

■  ■■ 

■  ■  ' 

1 

• 

1 

t 

I  valve  gradients 

1  aortic  mitral 

1 

1 

cardiac  Index 

» 

1 

1.  Modify  record  (SWI  for  modlfy-exam-option  field)  Is  mandatory, 

table  (YESNOTBL,  exists). 

» 

2.  All  other 

fields  are 

unprotected 

and  mandatory. 

» 

I 

» 

• 

•  • 

• 

• 

•  •  • 

.V  ,  • 

Page  7-22 
Chapter  7.7 


Chapter  7.7:  CAINSEXAM 

Purpose 


To  allow  the  user  to  Insert  a  new  CATHS  exam  record . 
Called  From 


This  step  Is  called  from  CASELEXAM  when  no  exams  exist  for  this 
person,  from  CASELEXAM4  or  CASELEXAM14  when  the  user  chooses  to 
Insert  a  new  exam,  or  from  CAINSPERS  right  after  Inserting  a 
person. 

Screen 


CAINSEXAM 

Logic 

Purge  SWIs  for  CATHS. 

Display  screen. 

If  Insert  record  (SWI  for  Insert-exam-optlon  field)  =  Y, 
set  CAINSIFLAG  =■  Y; 

Insert  CATHS  record  after; 
go  to  CAMODEXAM. 

If  Insert  record  (SWI  for  Insert-exam-optlon  field)  =*  N, 
go  to  ECGMENFERS. 

Validation 

Modify  exam  -  mandatory,  table  (YESNOTBL,  exists). 

Grade,  type  and  case  no  -  same  as  TREADMILL. 

Ht  and  wt  -  same  as  ECG. 

Arterial  cath  time  -  range  (5-150). 

DOE  -  range  (69/04/23  -  $DATE) . 
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Exhibit  7-7:  CAINSEXAM  -  Insert  CATHS  Exam 


<ssan> 

<name> 

<dob> 

<sex> 

Insert 

exam 

case 

ht 

wt 

arterial 

grade 

type 

no 

cm 

kg 

bsa 

cath  time 

doe 

age 

cath 

no 

no  for  patient 

/  / 


left  ventricle  edp 

aortic 

pre 

post 

Ivsp 

Ivdp 

anglo 

anglo 

spb  dbp  mean 

II 

■  ■  ■ 

. 

1 

II—.,  .  II  .  1 

valve  gradients 
aortic  mitral 


cardiac  Index 


1.  Insert  record  (SWI  for  insert-exam-option  field)  is  mandatory, 
table  (YESNOTBL,  exists). 

2.  All  other  fields  are  mandatory  and  unprotected. 
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Chapter  7.8:  CAMEHEXAH 

Purpose 

To  allow  the  user  a  choice  of  which  level  2  records  to  work  with. 
All  records  dealt  with  froiE  this  menu  attach  to  the  current  CATHS 
exam  record. 

Called  From 


This  step  Is  entered  from  CAMODEXAM  and  all  steps  that  It  calls. 
Screen 


CAMENEXAM 


Logic 


Display  Screen. 

If  the  select-next-step  option  field  Is  set  to: 


•1’ 

f 

If 

CAINS 1 FLAG  -  Y, 

perform  CACHECK. 

go 

to 

ECGSELPERS. 

•2' 

» 

If 

CAINSIFLAG  -  Y, 

perform  CACHECK. 

go 

to 

ECGMENPERS . 

13. 

> 

If 

CAINSIFLAG  =•  Y, 

perform  CACHECK. 

go 

to 

CASELEXAM. 

*4* 

9 

go 

to 

CASELTEAM. 

'5' 

> 

go 

to 

CASELSAMRR. 

'6' 

» 

go 

to 

CASELCLINR. 

'7' 

> 

go 

to 

CASELELECR. 

'8' 

» 

go 

to 

CASELPROCU. 

.9. 

9 

go 

to 

CASELANGIO. 

10’ 

9 

go 

to 

CASELTECH. 

11’ 

9 

go 

to 

CASELCOMP. 

12’ 

9 

go 

to 

CASELLVEF . 

13’ 

9 

go 

to 

CASELINTER. 

•0’ 

9 

If 

CAINSIFLAG  =  Y, 

perform  CACHECK. 

go 

to 

$EXIT. 
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CACHECK. 

Select  TEAM  records  where  EXAM  has  SAME  and  MEMBER  exists. 

If  $DATASN  -  0, 

Issue  msg:  'MUST  ENTER  TEAM*;  go  to  phase  2. 

Select  SAM  REFERRAL  REASONS  records 

where  EXAM  has  SAME  and  SAM  REFERRAL  REASON  exists. 

If  $DATASN  -  0, 

Issue  msi ;  'MUST  ENTER  SAM  REFERRAL  REASON* ;go  to  phase  2. 

Select  CLINICAL  REASONS  records 

where  EXAM  has  SAME  and  CLINICAL  REASON  exists. 

If  $DATASN  -  0, 

Issue  msg:  'MUST  ENTER  CLINICAL  REASON*;  go  to  phase  2. 

Select  ELECTROCARDIOGRAPHIC  REASONS  records 
where  EXAM  has  SAME  and  C36  exists. 

If  $DATASN  -  0, 

Issue  msg:  'MUST  ENTER  ELECTROCARDIOGRAPHIC  REASON* ;go  to  phase  2. 
Select  PROCEDURES  USED  records 

where  EXAM  has  SAME  and  PROCEDURE  USED  exists. 

If  $DATASN  -  0, 

Issue  msg:  'MUST  ENTER  PROCEDURE  USED';  go  to  phase  2. 

Select  TECHNIQUES  records  where  EXAM  has  SAME  and  APPROACH  exists. 

If  $DATASN  =■  0, 

Issue  msg:  'MUST  ENTER  TECHNIQUE';  go  to  phase  2. 

Select  COMPLICATIONS  records 

where  EXAM  has  SAME  and  COMPLICATION  exists. 

If  $DATASN  =•  0, 

Issue  msg:  'MUST  ENTER  COMPLICATION*;  go  to  phase  2. 

Select  INTERPRETAIONS  records  where  EXAM  has  SAME  and  READING  exists. 
If  SDATASN  =«  0, 

Issue  msg:  'MUST  ENTER  INTERPRETATION*;  go  to  phase  2. 


Validation 

Select-next-step-optlon  field  -  mandatory,  range  (0-12). 

NOTE:  CAINSIFLAG  Is  set  at  Insert  time  and  checked  here  to  ensure 
that  at  least  one  of  each  of  the  following  records  has  been 
Inserted  before  the  user  Is  allowed  to  exit  CAMENEXAM: 
C28-TEAM  C37-PROCEDURES  USED 

C31-SAM  REFERRAL  REASONS  C41 -TECHNIQUES 

C33-CLINICAI.  REASONS  C45-COMPLICATIONS 

C35-ELECTR0CARDI0GRAPHIC  REASONS  C51-INTERPRETATI0NS 
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Exhibit  7-8:  CAMENEXAM  -  MENU  For  Lower  Level  CATHS  Exam  Records 


<ssan>  <name>  <dob>  <sex> 

select  next  step  _ 

1  select  new  person 

2  select  data  base 

3  select  caths  exam 

4  select  team 

5  select  sam  referral  reasons 

6  select  clinical  reasons 

7  select  electrocardiographic  reasons 

8  select  procedures  used 

9  select  angiograms  completed 

10  select  techniques 

11  select  complications 

12  select  Iv  ejection  fractions 

13  select  interpretations 

0  exit 


Select  next  step  option  field  only  unprotected  field. 


> 
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I 


» 


» 


I 


I 


> 


> 


> 


» 


» 
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Chapter  7.9:  CASELTEAM 

Purpose 

The  purpose  of  CASELTEAM  is  to  first  determine  if  any  TEAM  records 
exist  in  the  CATHETER  data  base  for  the  current  exam.  If  there  are 
no  TEAM  records,  CAINSTEAM  is  called;  if  any  TEAM  records  exist, 
CASELTEAM4  is  called  (there  will  never  be  more  than  4  TEAM 
records).  There  are  no  screens  associated  with  this  step. 

Called  From 


CAMENEXAM. 

Screen 


None. 

Logic 

Select  TEAM  records  for  current  exam. 
If  NODATA, 

go  to  CAINSTEAM. 

Else 

go  to  CASELTEAM4. 

Validation 
None . 


•  •  • 


•  •  •  •  .  '  • 
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Chapter  7.10:  CASBLTBAH4 
Purpose 


» 


The  purpose  of  CASELTEAM4  Is  to  present  up  to  four  TEAM  records  to 

the  user.  The  user  nay  either  select  an  existing  record  for  review  * 

or  modification,  choose  to  insert  a  new  record,  or  exit  to  return 
to  the  menu. 

Called  From 


This  step  is  entered  when  the  current  exam  has  at  least  one  TEAM 
record  associated  with  it  in  the  data  base. 

Screen 

CASELTEAMA 

Logic 

1.  Retrieve  up  to  four  TEAM  records,  number  screen  accordingly, 
and  display. 

2.  If  'select  record'  (SWI  for  select-team  option  field)  ■ 

a)  'O',  go  to  CAMENEXAM. 

b)  'n' ,  where  n  -  $DATASP,  go  to  CAMODTEAM. 

c)  'n',  where  1  £  n^  $DATASN,  rewind  the  TEAM  sibling 
chain  and  retrieve  the  nth  record  via  $S2KC0UNT.  Go  to 
CAMODTEAM. 

d)  'n' ,  where  n  >  $DATASN,  go  to  CAINSTEAM. 

Validation 


> 


> 


» 


» 


1.  Select-team  option  field  -  mandatory,  numeric. 


» 


» 


•  • 


•  • 
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Exhibit  7-9:  CASELTBAM4  Screen  -  Select  4  TEAM  Records 


<ssan>  <naffle>  <dob>  <8ex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

select  team 
role 

1 

2  _ 

3  _ 

4  _ 

0  none  of  the  above 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
team  option  field. 

2.  The  SWI  name  for  the  option  field  is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 
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Chapter  7.11:  CAMODTBAM 

Purpose 

To  allow  the  user  to  modify  an  existing  TEAM  record. 

Called  From 

CASBLTEAM4  when  the  user  selects  an  existing  TEAM  record  or 
CAINSTEAH  when  a  new  record  Is  entered. 

Screen 

CAMODTEAM. 

Logic 

Display  screen. 

If  modify  record  (modlfy-team  option  field)  -  N, 
go  to  CAMENEXAM. 

Else 

If  modify  record  (modlfy-team  option  field)  ■  Y, 

Issue  a  modify  and  go  to  phase  1. 

Validation 

Modify  record  (SWI  for  modlfy-team  option  field)  -  mandatory,  table 
(YESNOTBL,  exists). 


Physician 

-  table  (CAPHYSTBL  - 

ALLEN 

HICKMAN 

SCHECHTER 

ALPERT 

KRYER 

SCHWARTZ 

BAILEY 

LONGO 

SCOVILLE 

CELIO 

MONTGOMERY 

THOMPSON 

EADES 

NEUFELD 

TOUCHON 

ENGEL 

PARKER 

UHL 

FROELICHER 

ROTHMAN 

WOOD 

Role 

-  table  (CAROLETBL  - 

PHYSICIAN 

IN  CHARGE 

NURSE  IN  CHARGE 

ASSISTING 

PHYSICIAN 

TECHNICIAN 

). 

Page  7-33 
Chapter  7.11 


Exhibit  7-10:  CAMODTEAM  Screen  -  Hodlfy  TEAM 


<ssan>  <name> 

<type>  <case  #>  <doe> 


<dob>  <8ex> 

<cath  no>  <no.  for  patlent> 


modify  team  _ 

role  member 


I 


> 


1.  The  modlfy-team  option  field,  role  field,  and  member  field  are 
mandatory. 

2.  The  SWI  name  for  the  option  field  is  modify  record. 


» 


» 


» 


•  •  • 


•  • 
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Chapter  7.12:  CAINSTBAN 
Purpose 

To  allow  the  user  to  Insert  a  new  TEAM  record. 

Called  FroM 

This  step  is  called  from  CASELTEAM  tfhen  no  team  records  exist  for 
the  current  exam  or  from  CASELTEAM4  when  the  user  chooses  to  Insert 
a  new  TEAM  record. 

Screen 

CAINSTEAM. 

Logic 

Purge  SWIs  for  TEAM. 

Display  screen. 

If  Insert  record  (SWI  for  Insert-team  option  field)  ■  Y, 

Insert  TEAM  record  after; 
go  to  CAMODTEAM. 

If  Insert  record  (SWI  for  Insert-team  option  field)  *  N, 
go  to  CAMENEXAM. 

I 

Validation 

Insert  record  (SWI  for  Insert-team  option  field)  -  mandatory,  table 
(YESNOTBL,  exists). 

Physician  -  table  (CAPHYSTBL  - 

ALLEN  HICKMAN  SCHECHTER  t 

ALPERT  KRYER  SCHWARTZ 

BAILEY  LONGO  SCOVILLE 

CELIO  MONTGOMERY  THOMPSON 

EADES  NEUFELD  TOUCHON 

ENGEL  PARKER  UHL 

FROELICHER  ROTHMAN  WOOD  ) .  i 

Role  -  table  (CAROLETBL  - 

PHYSICIAN  IN  CHARGE 
NURSE  IN  CHARGE 
ASSISTING  PHYSICIAN 

TECHNICIAN  , 


> 


» 


Exhibit  7-11:  CAINSTEAM  Screen  -  Insert  TEAM 


<ssan>  <name>  <dob>  <8ex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

Insert  team  _ 

role  member 


1.  The  Insert-team  option  field,  role  field,  and  member  field  are 
mandatory. 

2.  The  SWI  name  for  the  option  field  Is  Insert  record. 
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I 


m 


♦ 


I 


I 


I 


» 


» 


» 
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Chapter  7.13:  CASSLSAMBR 
Purpose 


The  purpose  of  CASELSAMRR  is  to  first  determine  If  any  SAM  REFERRAL 
REASONS  records  exist  In  the  CATHETER  data  base  for  the  current 
exam.  If  there  are  no  SAM  REFERRAL  REASONS  records,  CAINSSAMRR  Is 
called;  If  any  SAM  REFERRAL  REASONS  records  exist,  CASELSAMRR4  Is 
called  (there  will  never  be  more  than  4  SAM  REFERRAL  REASONS 
records).  There  are  no  screens  associated  with  this  step. 

Called  From 

CAMENEXAM. 

Screen 


None. 

Logic 

Select  SAM  REFERRAL  REASONS  records  for  current  exam. 
If  NODATA, 

go  to  CAINSSAMRR. 

Else 

go  to  CASELSAMRR4. 

Validation 


None 
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Chapter  7.14:  CASELSAIfU4 
Purpose 

The  purpose  of  CASELSAMRR4  is  to  present  up  to  four  SAM  REFERRAL 
REASONS  records  to  the  user.  The  user  nay  either  select  an 
existing  record  for  review  or  nodlflcatlon,  choose  to  Insert  a  new 
record,  or  exit  to  return  to  the  menu. 

Called  From 

This  step  Is  entered  when  the  current  exam  has  at  least  one  SAM 
REFERRAL  REASONS  records  associated  with  It  In  the  data  base. 

Screen 


CASELSAMRR4 

Logic 

1 .  Retrieve  up  to  four  SAM  REFERRAL  REASONS  records ,  number 
screen  accordingly,  and  display. 

2.  If  'select  record'  (SWX  for  select-sam  referral  reason 
option  field)  > 

a)  'O',  go  to  CAMENEXAM. 

b)  'n',  where  n  ■  $DATASP,  go  to  CAMODSAMRR. 

c)  'n' ,  where  1  _<  n  <  $DATASN,  rewind  the  SAM  REFERRAL 
REASONS  sibling  chain  and  retrieve  the  nth  record  via 
$S2KC0UNT.  Go  to  CAMODSAMRR. 

d)  'n' ,  where  n  >  $DATASN,  go  to  CAINSSAMRR. 

Validation 

1.  Select-sam  referral  reason  option  field  -  mandatory, 
numeric. 
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Exhibit  7-12:  CASBLSAMRK4  Screen  -  Select  4  REFBKRAL  REASOMS 


<ssan>  <naine>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 


select  sam  referral  reason 
san  referral  reason 

1 

2 

3 

4  _ 

0  none  of  the  above 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
sam  referral  reason  option  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 
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Chapter  7.15:  CAHMTSAMRR 
Purpose 

To  allow  the  user  to  modify  an  existing  SAM  REFERRAL  REASONS 
record. 

Called  From 

CASELSAMRR4  when  the  user  selects  an  existing  SAM  REFERRAL  REASONS 
record  or  CAINSSAMRR  when  a  new  record  is  entered. 

Screen 

CAMODSAMRR. 

Logic 

Display  screen. 

If  modify  record  (modlfy-sam  referral  reason  option  field)  >  N, 
go  to  CAMENEXAM. 

Else 

If  modify  record  (modlfy-sam  referral  reason  option  field)  ■  Y, 
issue  a  modify  and  go  to  phase  1. 

Validation 


Modify  record  (SWI  for  modlfy-sam  referral  reason  option  field)  - 
mandatory,  table  (YESNOTBL,  exists). 

Sam  referral  reason  -  mandatory,  table  lookup  on  input  (CASAMRRTBL) 

CASAMRRTBL 

Col  1  Col  2 

1  FLIGHT  MEDICINE 

2  PSYCHIATRY 

3  NEUROLOGY 

4  OPHTHALMOLOGY 

5  INTERNAL  MEDICINE 

6  CARDIOLOGY 


✓ 

Vi 
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Exhibit  7-13:  CAMOOSAMKR  Screen  -  Modify  SAM  REFEUAL  REASON 


^ - 

I  <ssan>  <name>  <dob>  <sex> 

I  <type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

!  modify  sam  referral  reason  _ 

I  sam  referral  reason 


1.  The  modlfy-sam  referral  reason  option  field  and  sam  referral 
reason  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  Is  modify  record. 


•  •  • 


•  • 
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Chapter  7.16:  CAIHSSAMBR 
Purpose 

To  allow  the  user  to  Insert  a  new  SAM  REFERRAL  REASONS  record. 
Called  Froa 


This  step  Is  called  froa  CASELSAMRR  when  no  referral  reasons  exist 
for  the  current  exaa  or  from  CASELSAMRR4  when  the  user  chooses  to 
Insert  a  new  SAM  REFERRAL  REASONS  record. 

Screen 


CAINSSAMRR. 

Logic 

Purge  SWIs  for  SAM  REFERRAL  REASON 
Display  screen. 

If  Insert  record  (SWI  for  Insert-samrr-optlon  field)  -  Y, 
Insert  SAM  REFERRAL  REASONS  record  after; 
go  to  CAMODSAMRR. 

If  Insert  record  (SWI  for  insert-samrr-optlon  field)  ■  N, 
go  to  CAMENEXAM. 

Validation 


Insert  record  (SWI  for  Insert-sam  referral  reason  option  field)  - 
mandatory,  table  (YESNOTBL,  exists). 


Sam  referral  reason  -  mandatory,  table  lookup  on  Input  (CASAMRRTBL) 

CASAMRRTBL 


Col  1  Col  2 

1  FLIGHT  MEDICINE 

2  PSYCHIATRY 

3  NEUROLOGY 

4  OPHTHALMOLOGY 

5  INTERNAL  MEDICINE 

6  CARDIOLOGY 
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Exhibit  7-14:  CAIMSSAMRR  Screen  -  Insert  SAM  REFERRAL  REASON 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 


Insert  sam  referral  reason 
saa  referral  reason 


1.  The  Insert-sam  referral  reason  option  field  and  sam  referral 
reason  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  is  insert  record. 
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•  •  •  •  • 


Y 


( 


/ 

\ 
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Chapter  7.17:  CASBLCLINR 
Purpose 


The  purpose  of  CASELCLINR  Is  to  first  decide  If  there  any  CLINICAL 
REASONS  records  In  the  CATHETER  data  base  for  the  current  exaa.  If 
there  are  no  CLINICAL  REASONS  records,  CAINSCLINR  Is  called;  If  any 
CLINICAL  REASONS  records  exist,  CASELCLINR4  Is  called  (there  will 
never  be  more  than  4  CLINICAL  REASONS  records  per  exam) .  There  are 
no  screens  associated  with  this  step. 

Called  From 


CAMENEXAM. 

Screen 


None. 

Logic 

Select  CLINICAL  REASONS  records  for  current  exam. 
If  NODATA, 

•  go  to  CAINSCLINR. 

Else 

go  to  CASELCLINR14 . 

Validation 

None. 
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Chapter  7.18:  CASELCLIIIE4 
Purpose 

The  purpose  of  CASELCLINR4  Is  to  present  up  to  four  CLINICAL 
REASONS  records  to  the  user.  The  user  may  either  select  an 
existing  record  for  review  or  modification,  choose  to  insert  a  new 
record,  or  exit  to  return  to  the  menu. 

Called  From 


This  step  Is  entered  when  the  current  exam  has  at  least  one 
CLINICAL  REASONS  records  associated  with  It  in  the  data  base. 

Screen 


CASELCLINR4 

Logic 

1.  Retrieve  up  to  four  CLINICAL  REASONS  records,  number  screen 
accordingly,  and  display. 

2.  If  'select  record'  (SWI  for  select-cllncal  reason  option 
field)  - 

a)  'O',  go  to  CAMENEXAM. 

b)  'n',  where  n  ■  $DATASP,  go  to  CAMODCLINR. 

c)  'n' ,  where  1  _<  n  <  $DATASN,  rewind  the  CLINICAL  REASONS 
sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  CAMODCLINR. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSCLINR. 

Validation 


1.  Select-clinical  reason  option  field  -  mandatory,  numeric. 
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Exhibit  7-15:  CASKLCL111R4  Screen  -  Select  4  CLIHICAL  BXASOHS 


I 


- - - 

I  I 

I  I 

I  <8san>  <nane>  <dob>  <Bex>  I  | 


<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 


select  clinical  reason  _  j 

I 

clinical  reason  |  | 

1  _  1 

2 _  1 

3  1 

4  I 

-  I 

I 

0  none  of  the  above  |  i 


I 


H - H 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
clinical  reason  option  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


•  •  • 


•  •  •  • 
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Chapter  7.19:  CAMODCLIHR 
Purpose 

To  allow  the  user  to  modify  an  existing  CLINICAL  REASONS  record. 
Called  From 

CASELCLINR4  when  the  user  selects  an  existing  CLINICAL  REASONS 
record  or  CAINSCLINR  when  a  new  record  is  entered. 

Screen 

CAMODCLINR. 

Logic 

Display  screen. 

If  modify  record  (modlfy-cllnlcal  reason  option  field)  -  N, 
go  to  CAMENEXAM. 

Else 

If  modify  record  (modlfy-cllnlcal  reason  option  field)  ■  Y, 
Issue  a  modify  and  go  to  phase  1. 

Validation 


Modify  record  (SWI  for  modlfy-cllnlcal  reason  option  field)  - 
mandatory,  table  (YESNOTBL,  exists). 


Clinical  reason  -  mandatory,  table  lookup  on  Input  (CACLINRTBL) 

CACLINRTBL 

Col  1  Col  2 

01  ABNORMAL  ELECTROCARDIOGRAPHIC  FINDING 

02  ANGINA,  DEFINITE  OR  SUSPECTED 

03  HISTORY  OF  ISCHEMIC  EPISODES  OR  INFARCTION 

04  MITRAL  VALVE  DISEASE,  SUSPECTED 

05  AORTIC  VALVE  DISEASE,  SUSPECTED 

08  PERICARDIAL  DISEASE,  SUSPECTED 

09  RISK  FACTOR  PROFILE  SUGGESTIVE  OF  CORONARY  DISEASE 

11  ABNORMAL  MUGX 

12  ABNORMAL  STRESS  THALLIUM 

13  CARDIOMYOPATHY,  OBSTRUCTIVE,  SUSPECTED 

14  CARDIOMYOPATHY,  NON-OBSTRUCTIVE,  SUSPECTED 

10  0THE«» 


Page  7-49 
Chapter  7 . 19 


Exhibit  7-16:  CAM(»CLINR  Screen  -  Modify  CLINICAL  REASCNI 


^ - i- 

•  I 

I  I 

I  <ssan>  <name>  <dob>  <8ex>  | 


<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

nodlfy  clinical  reason  _ 
clinical  reason 


H - ^ 


1.  The  modlfy-cllnlcal  reason  option  field  and  clinical  reason  field 
are  mandatory. 

2.  The  SWI  name  for  the  option  field  is  modify  record. 
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Chapter  7.20:  CAUSCLIBR 
Purpose 

To  allow  the  user  to  Insert  a  new  CLINICAL  REASONS  record. 
Called  Froa 


This  step  Is  called  from  CASELCLINR  when  no  clinical  reasons  exist 
for  the  current  exam  or  from  CASELCLINR4  when  the  user  chooses  to 
Insert  a  new  CLINICAL  REASONS  record. 

Screen 


CAINSCLINR. 

Logic 

Purge  SWIs  for  CLINICAL  REASON. 

Display  screen. 

If  Insert  record  (SWI  for  Insert-cllnr-option  field)  ■  Y, 
Insert  CLINICAL  REASONS  record  after; 
go  to  CAMODCLINR. 

If  Insert  record  (SWI  for  Insert-cllnr-option  field)  ■  N, 
go  to  CAMENEXAM. 

Validation 


Insert  record  (SWI  for  insert-clinical  reason  option  field)  - 
mandatory,  table  (YESNOTBL,  exists). 

Clinical  reason  -  mandatory,  table  lookup  on  input  (CACLINRTBL) 

CACLINRTBL 

Col  1  Col  2 

01  ABNORMAL  ELECTROCARDIOGRAPHIC  FINDING 

02  ANGINA,  DEFINITE  OR  SUSPECTED 

03  HISTORY  OF  ISCHEMIC  EPISODES  OR  INFARCTION 

04  MITRAL  VALVE  DISEASE,  SUSPECTED 

05  AORTIC  VALVE  DISEASE,  SUSPECTED 

08  PERICARDIA'  O'SEASR,  SUSPECTED 

09  RISK  FACTOR  PROFILE  SUGGESTIVE  OF  CORONARY  DISEASE 

11  ABNORMAL  MUGX 

12  ABNORMAL  STRESS  THALLIUM 

13  CARDIOMYOPATHY,  OBSTRUCTIVE,  SUSPECTED 

14  CARDIOMYOPATHY,  NON-OBSTRUCTIVE,  SUSPECTED 

10  OTHER 
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I 


0 

\ 


f 


Exhibit  7-17:  CAIMSCLIIR  Screen  -  Insert  CLINICAL  REAS(HI 


I 


\ - _+ 

I  I 

I  I 

j  <8san>  <naiBe>  <dob>  <sex>  I 


<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

Insert  clinical  reason  _ 
clinical  reason 


+_ - ^ 


» 


» 


» 


I 


1.  The  Insert-cllnlcal  reason  option  field  and  clinical  reason  field 
are  mandatory. 

2.  The  SWI  name  for  the  option  field  Is  Insert  record. 

» 


» 


> 


» 


•  •  •  • 


•  • 


I 
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» 


I 


> 


I 


» 


I 


» 
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Chapter  7.21:  CASELBLBCR 
Purpose 

The  purpose  of  CASELELECR  is  to  first  decide  if  there  are  any 
ELECTROCARDIOGRAPHIC  REASONS  records  in  the  CATHETER  data  base  for 
the  current  exam.  If  there  are  no  ELECTROCARDIOGRAPHIC  REASONS 
records,  CAINSELECR  is  called;  if  there  are  any 
ELECTROCARDIOGRAPHIC  REASONS  records  for  the  current  exaa, 
CASELELECR4  is  called  (there  will  never  be  more  than  4 
ELECTROCARDIOGRAPHIC  REASONS  records  per  exam) .  There  are  no 
screens  associated  with  this  step. 

Called  From 


CAMENEXAM. 

Screen 


None. 

Logic 

Select  ELECTROCARDIOGRAPHIC  REASONS  records  for  current  exam. 
If  NODATA, 

go  to  CAINSELECR. 

Else 

go  to  CASELELECR4. 

Validation 

None. 
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Chapter  7.22:  CASHLELBOLA 
Purpose 

The  purpose  of  CASELELECR4  is  to  present  up  to  four 
ELECTROCARDIOGRAPHIC  REASONS  records  to  the  user.  The  user  may 
either  select  an  existing  record  for  review  or  modification,  choose 
to  Insert  a  new  record,  or  exit  to  return  to  the  menu. 

Called  From 


This  step  Is  entered  when  the  current  exam  has  at  least  one 
ELECTROCARDIOGRAPHIC  REASONS  records  associated  with  It  In  the  data 
base. 

Screen 


CASELELECR4 

Logic 

1.  Retrieve  up  to  four  ELECTROCARDIOGRAPHIC  REASONS  records, 
number  screen  accordingly,  and  display. 

2.  If  select  record  (SUI  for  select-electrocardlographlc 

reason  option  field)  ■ 

a)  'O’,  go  to  CAKENEXAM. 

b)  'n',  where  n  ■  $DATASP,  go  to  CAMODELECR. 

c)  'n',  where  1  £  $DATASN,  rewind  the 

ELECTROCARDIOGRAPHIC  REASONS  sibling  chain  and  retrieve 
the  nth  record  via  $S2KC01JNT.  Go  to  CAMODELECR. 

d)  'n' ,  where  n  >  $DATASN,  go  to  CAINSELECR. 

Validation 


1.  Select-electrocardiographic  reason  option  field  -  mandatory, 
numeric. 


» 


I 


♦ 


I 


ft 


ft 


ft 


I 


ft 


ft 


ft 


✓ 
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Exhibit  7-18:  CASEULECR4  Screen  -  Select  4  E-CAKDIO  REASONS 


» 


m 

I 

♦ 


<8san>  <naiae>  <dob>  <8ex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 


8elect  electrocardiographic  reaaon 
electrocardiographic  reaaon 

1 

2  _ 

3  _ 

4  _ 

0  none  of  the  above 


H - 1- 


t 


t 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
electrocardlographlc  reason  option  field. 

2.  The  SWI  name  for  the  option  field  is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


•  •  • 


•  •  • 
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Chapter  7.23:  CAH008LBCR 
Purpose 

To  allow  the  user  to  aodify  an  existing  ELECTROCARDIOGRAPHIC 
REASONS  record. 

Called  Fron 

CASELELECR4  when  the  user  selects  an  existing  ELECTROCARDIOGRAPHIC 
REASONS  record  or  CAINSELECR  when  a  new  record  is  entered. 

Screen 

CAMODELECR. 

Logic 

Display  screen. 

If  modify  record(modlfy-electrocardlographic  reason  option  field)  ~  N, 
go  to  CAMENEXAM. 

Else 

If  modify  record(modify-electrocardiographlc  reason  option  field)  >■  Y, 
issue  a  modify  and  go  to  phase  1. 

Validation 


Modify  record  (SWI  for  modlfy-electrocardiographlc  reason  option  field) 
-  mandatory,  table  (YESNOTBL,  exists). 

Electrocardiographic  reason  -  mandatory,  table  lookup  on  input: 

CAELECRTBL 


Col  1  Col  2 

01  NONE,  NORMAL  STUDIES 

02  LEFT  BUNDLE  BRANCH  BLOCK 

03  RIGHT  BUNDLE  BRANCK  BLOCK 

04  INTRAVENTRICULAR  CONDUCTION  DEFECT 

05  SUPRAVENTRICULAR  TACHYCARDIA 

06  ATRIOVENTRICULAR  BLOCK  -  1ST,  2ND,  OR  3RD  DEGREE 
07  SERIAL  T  WAVE  CHANGES 

08  SERIAL  ST  SEGMENT  CHANGES 

09  INFARCTION  PATTERN,  ECG  OR  VCG 

10  ABNORMAL  DOUBLE  MASTERS,  REFERRED  WITH 

11  ABNORMAL  DOUBLE  MASTERS,  SAM 

12  ABNORMAL  TREADMILL  STRESS  TEST  WITH  HISTORY  OF  NORMA  L  ECG'S 

13  ABNORMAL  TREADMILL  STRESS  TEST  WITH  HISTORY  OF  REPOLARIZATION 

ABNORMALITIES 

14  PCV'S,  VT  -  RESTING  OR  EXERCISE  INDUCED 

15  ABNORMAL  SEPTAL  Q  WAVES 

16  ABNORMAL  TREADMILL  STRESS  TEST,  REFERRED  WITH 

17  PACEMAKER  DYSFUNCTION  (E.G.  SICK  SINUS  SYNDROME,  ETC.) 

19  ABNORMAL  ECG  RESPONSE  TO  EXERCISE 

20  VENTRICULAR  TACHCARDIA,  RESTING  OR  EXERCISE  INDUCED 

18  OTHER 
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Exhibit  7-19:  CAMODELBCR  Screen  -  Modify  E-CARDIO  REASON 


<s8an>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no,  for  patlent> 


modify  electrocardiographic  reason 
electrocardiographic  reason 


I 


1.  The  modlfy-electrocardiographic  reason  option  field  and 
electrocardiographic  reason  field  are  mandatory, 

2.  The  SWI  name  for  the  option  field  is  modify  record. 
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Chapter  7.24:  CAIMSELECR 


Purpose 

To  allow  the  user  to  Insert  a  new  ELECTROCARDIOGRAPHIC  REASONS 
record. 

Called  From 

This  step  Is  called  from  CASELELECR  when  no  electrocardiographic 
reasons  exist  for  the  current  exam  or  from  CASELELECR4  when  the 
user  chooses  to  Insert  a  new  ELECTROCARDIOGRAPHIC  REASONS  record. 

Screen 

CAINSELECR. 

Logic 

Purge  SWIs  for  ELECTROCARDIOGRAPHIC  REASON. 

Display  screen. 

If  Insert  record  (SWI  for  Insert-electrocardlographlc-optlon  field)  -  Y 
Insert  ELECTROCARDIOGRAPHIC  REASONS  record  after; 
go  to  CAMODELECR. 

If  Insert  record  (SWI  for  Insert-electrocardlographlc-optlon  field)  ■  N 
go  to  CAMENEXAM. 

Validation 

Insert  record(SWI  for  Insert-electrocardlographlc  reason  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 
Electrocardiographic  reason  -  mandatory,  table  lookup  on  Input: 

CAELECRTBL: 


Col  1 
01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 

13 

14 

15 

16 

17 

19 

20 

18 


Col  2 

NONE,  NORMAL  STUDIES 
LEFT  BUNDLE  BRANCH  BLOCK 
RIGHT  BUNDLE  BRANCK  BLOCK 
INTRAVENTRICULAR  CONDUCTION  DEFECT 
SUPRAVENTRICULAR  TACHYCARDIA 

ATRIOVENTRICULAR  BLOCK  -  1ST,  2ND,  OR  3RD  DEGREE 

SERIAL  T  WAVE  CHANGES 

SERIAL  ST  SEGMENT  CHANGES 

INFARCTION  PATTERN,  ECG  OR  VCG 

ABNORMAL  DOUBLE  MASTERS,  REFERRED  WITH 

ABNORMAL  DOUBLE  MASTERS,  SAM 

ABNORMAL  TREADMILL  STRESS  TEST  WITH  HISTORY  OF  NORMA  L  ECG'S 
ABNORMAL  TREADMILL  STRESS  TEST  WITH  HISTORY  OF  REPOLARIZATION 
ABNORMALITIES 

PCV'S,  VT  -  RESTING  OR  EXERCISE  INDUCED 
ABNORMAL  SEPTAL  Q  WAVES 

ABNORMAL  TREADMILL  STRESS  TEST,  REFERRED  WITH 
PACEMAKER  DYSFUNCTION  (E.G.  SICK  SINUS  SYNDROME,  ETC.) 
ABNORMAL  ECG  RESPONSE  TO  EXERCISE 

VENTRICULAR  TACHCARDIA,  RESTING  OR  EXERCISE  INDUCED 
OTHER 
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Exhibit  7-20;  CAINSELBCR  Screen  -  Insert  E-CARDIO  REASON 


<ssan>  <name>  <dob>  <sex> 

<type>  <ca8e  #>  <doe>  <cath  nc>  <no.  for  patlent> 


Insert  electrocardiographic  reason 
electrocardiographic  reason 


I 


1.  The  Insert-electrocardiographic  reason  option  field  and 
electrocardiographic  reason  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  is  insert  record. 
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» 


I 


> 


» 


» 


» 


> 


» 


ki 


•  • 
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Chapter  7.25:  CASELPROCU 
Purpose 

The  purpose  of  CASELPROCU  is  to  first  detemlne  how  many  PROCEDURES 
USED  records  exist  in  the  CATHETER  data  base  for  the  current  exam. 
If  there  are  no  PROCEDURES  USED  records,  CAINSPROCU  is  called;  if 
there  between  1  and  4  (inclusive)  PROCEDURES  USED  records  for  the 
current  exam,  CASELPR0CU4  is  called;  if  there  are  more  than  4 
PROCEDURES  USED  records,  CASELPR0CU14  is  called.  There  are  no 
screens  associated  with  this  step. 

Called  From 

CAMENEXAM. 

Screen 

None. 

Logic 

Select  PROCEDURES  USED  records  for  current  exam. 

If  NODATA, 

go  to  CAINSPROCU. 

If  0  <  $DATASN  <  4, 
go  to  CASELPR0CU4. 

If  $DATASN  >  4, 

go  to  CASELPR0CU14 . 

Validation 

None. 


( 
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Chapter  7.26:  CASELPR0CU4 

Purpose 

The  purpose  of  CASELPR0CU4  Is  to  present  up  to  four  PROCEDURES  USED 
records  to  the  user.  The  user  may  either  select  an  existing  record 
for  review  or  modification,  choose  to  Insert  a  new  record,  or  exit 
to  return  to  the  menu. 

Called  From 

This  step  Is  entered  when  the  current  exam  has  between  1  and  4 
(Inclusive)  PROCEDURES  USED  records  associated  with  it  In  the  data 
base . 

Screen 


CASELPR0CU4 

Logic 

1.  Retrieve  up  to  four  PROCEDURES  USED  records,  number  screen 
accordingly,  and  display. 

2.  If  select  record  (SWI  for  select-procedure-used  option 
field)  - 

a)  'O’,  go  to  CAMENEXAM. 

b)  'n',  where  n  »  $DATASP,  go  to  CAMODPROCU. 

c)  'n',  where  1  ^  n<  $DATASN,  rewind  the  PROCEDURES  USED 
sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  CAMODPROCU. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSPROCU. 

Validation 

1.  Select-procedure-used  option  field  -  mandatory,  numeric. 


■'4r, 


» 


«/ 


4r 


» 


I 


I 


» 


» 


» 


•  • 


•  •  • 
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Exhibit  7-21 :  CASELFR0CU4  Screen  -  Select  4  Procedures  Used 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 


select  procedure  used 
procedure  used 

1 

2 

3 

4  _ 

0  none  of  the  above 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
procedure-used  option  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 
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Chapter  7.27:  CASELPR0CU14 

Purpose 

The  purpose  of  CASELPR0CU14  Is  to  present  up  to  fourteen  PROCEDURES 
USED  records  to  the  user.  The  user  may  either  select  an  existing 
record  for  review  or  modification,  choose  to  insert  a  new  record, 
or  exit  to  return  to  the  menu. 

Called  From 


This  step  is  entered  when  the  current  exam  has  more  Chan  four 
PROCEDURES  USED  records  associated  with  it  in  the  data  base. 

Screen 


CASELPR0CU14 

Logic 


1.  Retrieve  up  Co  fourteen  PROCEDURES  USED  records,  number 
screen  accordingly,  and  display. 

2.  If  'select  record'  (SWI  for  select-procedure-used  option 
field)  - 

a)  'O',  go  to  CAMENEXAM. 

b)  'n',  where  n  ■  $DATASP,  go  to  CAMODPROCU. 

c)  'n',  where  1  <  n  <  $DATASN,  rewind  the  PROCEDURES  USED 
sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  CAMODPROCU. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSPROCU. 

Validation 

1.  Select-procedure-used  option  field  (SWI  select  record)  - 
mandatory,  numeric. 
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Exhibit  7-22:  CASBLP80CU14  Screen  -  Select  14  Procedures  Used 


<8san>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

select  procedure  used 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
procedure-used  option  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 
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Chapter  7.28:  CAMODPROCU 
Purpose 

To  allow  the  user  to  modify  an  existing  PROCEDURES  USED  record. 
Called  Proa 

CASELFR0CU4  or  CASELPR0CU14  when  the  user  selects  an  existing 
PROCEDURES  USED  record  or  CAINSPROCU  when  a  new  record  Is  entered. 

Screen 

CAMODPROCU. 

Logic 

Display  screen. 

If  modify  record(modlfy-procedure-u8ed  option  field)  -  N, 
go  to  CAMENEXAM. 

Else 

If  modify  record(modify-procedure-used  option  field)  *  Y, 

Issue  a  modify  and  go  to  phase  1. 

Validation 


Ar 


» 


» 


Modify  record  (SWI  for  modlfy-procedure-used  option  field) 
-  mandatory,  table  (YESNOTBL,  exists). 

Procedure  used  -  mandatory,  table(CAPROCUTBL,  exists). 
Input  via  COLl,  validate  on  C0L2. 

CAPROCUTBL; 


COLl 

C0L2 

01 

INTRAVENOUS  CATHETER,  STAND  BY 

02 

INTRAVENOUS  PACING  ELECTRODE,  STAND 

BY 

03 

RIGHT  HEART  CATHETERIZATION 

04 

LEFT  HEART  CATHETERIZATION,  RETROGRADE 

BRACHIAL 

05 

LEFT  HEART  CATHETERIZATION,  RETROGRADE 

FEMORAL 

06 

HIS  BUNDLE  ELECTROCARDIOGRAPHY 

07 

HIS  BUNDLE  ELECTROCARDIOGRAPHY  WITH 

ATRIAL  PACING 

08 

CARDIAC  OUTPUT,  PICK 

09 

CARDIAC  OUTPUT,  CARDIOGREEN 

10 

CORONARY  SINUS  METABOLIC  STUDIES 

11 

SUPINE  BICYCLE  ERGOMETRY 

12 

CONTRACTILITY  STUDIES 

13 

CARDIAC  OUTPUT,  THERMODILUTION 

14 

OXIMETRY  SHUNT  SERIES 

15 

DRUG  INTERVENTION  STUDIES 

16 

OTHER 

» 


I 
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Exhibit  7-23:  CAMODPSOCU  Screen  -  Modify  Procedures  Used 


t 


♦ 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

modify  procedure  used  _ 
procedure  used 


» 


» 


I 


1.  The  modlfy-procedure-used  option  field  and  procedure  used  field 
are  mandatory. 

2.  The  SWI  name  for  the  option  field  is  modify  record. 

» 


» 


I 


r 


•  •  • 


•  •  • 
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Chapter  7.29:  CAIHSPROCU 
Purpose 

To  allow  the  user  to  Insert  a  new  PROCEDURES  USED  record. 

Called  From 

This  step  is  called  from  CASELPROCU  when  no  PROCEDURES  USED  records 
exist  for  the  current  exam  or  from  CASELPR0CU4  or  CASELPR0CU14  when 
the  user  chooses  to  insert  a  new  PROCEDURES  USED  record. 

Screen 

CAINSPROCU. 

Logic 

Purge  SVIs  for  PROCEDURE  USED. 

Display  screen. 

If  Insert  record  (SWI  for  Insert-procedure-used  option  field)  ■  Y, 
Insert  PROCEDURES  USED  record  after; 
go  to  CAMODPROCU. 

If  insert  record  (SWI  for  Insert-procedure-used  option  field)  -  N, 
go  to  CAMENEXAM. 

Validation 

Insert  record(SWI  for  Insert-procedure-used  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Procedure  used  -  mandatory,  table(CAPROCUTBL,  exists), 

input  via  COLl,  validate  on  C0L2. 


CAPROCUTBL: 

COLl 

C0L2 

01 

INTRAVENOUS  CATHETER,  STAND  BY 

02 

INTRAVENOUS  PACING  ELECTRODE,  STAND 

BY 

03 

RIGHT  HEART  CATHETERIZATION 

04 

LEFT  HEART  CATHETERIZATION,  RETROGRADE 

BRACHIAL 

05 

LEFT  HEART  CATHETERIZATION,  RETROGRADE 

FEMORAL 

06 

HIS  BUNDLE  ELECTROCARDIOGRAPHY 

07 

HIS  BUNDLE  ELECTROCARDIOGRAPHY  WITH 

ATRIAL  PACING 

08 

CARDIAC  OUTPUT,  PICK 

09 

CARDIAC  OUTPUT,  CARDIOGREEN 

10 

CORONARY  SINUS  METABOLIC  STUDIES 

11 

SUPINE  BICYCLE  ERGOMETRY 

12 

CONTRACTILITY  STUDIES 

13 

CARDIAC  OUTPUT,  THERMODILUTION 

14 

OXIMETRY  SHUNT  SERIES 

15 

DRUG  INTERVENTION  STUDIES 

16 

OTHER 
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Exhibit  7-24:  CAIMSPROCU  Screen  -  Insert  Procedures  Used 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patient> 


Insert  procedure  used 
procedure  used 


1.  The  Insert-procedure-used  option  field  and  procedure  used  field 
are  mandatory. 


2.  The  SWI  name  for  the  option  field  is  insert  record 
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Chapter  7.30:  CASKLAHGIO 

Purpose 

The  purpose  of  CASELAMCIO  is  to  first  determine  how  many  ANGIOGRAMS 
COMPLETED  records  exist  in  the  CATHETER  data  base  for  the  current 
exam.  If  there  are  no  ANGIOGRAMS  COMPLETED  records,  CAINSANGIO  is 
called;  if  there  between  1  and  4  (inclusive)  ANGIOGRAMS  COMPLETED 
records  for  the  current  exam,  CASELANGI04  is  called;  if  there  are 
more  than  4  ANGIOGRAMS  COMPLETED  records,  CASELANGI014  is  called. 
There  are  no  screens  associated  with  this  step. 

Called  From 

CAMENEXAM. 

Screen 

None . 

Logic 

Select  ANGIOGRAMS  COMPLETED  records  for  current  exam. 

If  NODATA, 

go  tj  CAINSANGIO. 

If  0  <  SDATASN  <  4 , 
go  to  CASELANGI04. 

If  $DATASN  >  4, 

go  to  CASELANGI014. 

Validation 

None. 
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Chapter  7.31:  CASELANGI04 

Purpose 

The  purpose  of  CASELANGIOA  Is  to  present  up  to  four  ANGIOGRAMS 
COMPLETED  records  to  the  user.  The  user  may  either  select  an 
existing  record  for  review  or  modification,  choose  to  Insert  a  new 
record,  or  exit  to  return  to  the  menu. 

Called  From 


This  step  Is  entered  when  the  current  exam  has  between  1  and  4 
(Inclusive)  ANGIOGRAMS  COMPLETED  records  associated  with  It  In  the 
data  base. 

Screen 


CASELANG104 

Logic 

1.  Retrieve  up  to  four  ANGIOGRAMS  COMPLETED  records,  number 
screen  accordingly,  and  display. 

2.  If  select  record  (SWI  for  select-anglograms-completed  option 

field)  = 

a)  *0',  go  to  CAMENEXAM. 

b)  'n',  where  n  *  $DATASP,  go  to  CAMODANGIO. 

c)  'n',  where  1  ^  n  ^  $DATASN,  rewind  the  ANGIOGRAMS 
COMPLETED  sibling  chain  and  retrieve  the  nth  record  via 
$S2KC0UNT.  Go  to  CAMODANGIO. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSANGIO. 

Validation 


1.  Select-anglograms-completed  option  field  -  mandatory, 
numeric. 
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'V 


Exhibit  7-25:  CASELAKI04  Screen  -  Select  4  A1I6I0GRAMS  COMPLETED 


<s8an>  <naae>  <dob>  <sex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 


8elect  angiograms  completed 
angiograms  completed 

1 

2 

3 

4  _ 

0  none  of  the  above 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
angiograms-completed  option  field. 

2.  The  SWI  name  for  the  option  field  is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


a 


•  • 


•  •  •  • 
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Chapter  7.32:  CASKLAMGI014 
Purpose 

The  purpose  of  CASELANGIOIA  Is  to  present  up  to  fourteen  ANGIOGRAMS 

(X)MPLETED  records  to  the  user.  The  user  aay  either  select  an  * 

existing  record  for  review  or  modification,  choose  to  Insert  a  new 
record,  or  exit  to  return  to  the  menu. 

Called  From 

This  step  Is  entered  when  the  current  exam  has  more  than  four  * 

ANGIOGRAMS  COMPLETED  records  associated  with  It  In  the  data  base. 

Screen 


CASELANGI014 

Logic 

1.  Retrieve  up  to  fourteen  ANGIOGRAMS  COMPLETED  records,  number 
screen  accordingly,  and  display. 

2.  If  'select  record' 

(SWI  for  select-anglograms-completed  option 

field)  - 

a)  'O',  go  to  CAMENEXAM. 

b)  'n',  where  n  -  $DATASP,  go  to  CAMODANGIO. 

c)  'n',  where  1  ^  n  <  $DATASN,  rewind  the  ANGIOGRAMS 
COMPLETED  sibling  chain  and  reprieve  the  nth  record  via 
$S2KC0UNT.  Go  to  CAMODANGIO. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSANGIO. 

Validation 


I 


» 


» 


» 


1.  Select-anglograms-completed  option  field  (SWI  select  record) 
-  mandatory,  numeric. 


> 


» 


» 


•  • 


-  a  ‘ 


O 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <iio.  for  patlent> 


select  angiograms  completed 
angiograms  completed 


1 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
anglograms-completed  option  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs. 
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I 


TT 


Chapter  7.33:  CAMTOAMGIO 
Purpose 

To  allow  the  user  to  aodlfy  an  existing  ANGIOGRAMS  COMPLETED 
record. 

Called  Proa 

CASELANGI04  or  CASELANGI014  when  the  user  selects  an  existing 
ANGIOGRAMS  COMPLETED  record  or  CAINSANGIO  when  a  new  record  is 
entered . 

Screen 
CAMODANGIO . 

Logic 

Display  screen. 

If  modify  record(modlfy-anglograms-completed  option  field)  -  N, 
go  to  CAMENEXAM. 

Else 

If  modify  record(modlfy-anglograms-completed  option  field)  «  Y, 
issue  a  modify  and  go  to  phase  1. 

Validation 


Modify  record  (SWI  for  modify-angiograms-completed  option  field) 

-  mandatory.  Cable  (YESNOTBL,  exists). 

Angiograms  completed  -  none  mandatory,  table  (CAANGIOTBL)  edit  on  input 
via  COLI  on  C0L2. 

CAANGIOTBL 


I 


♦ 


» 


I 


I 


I 


COLI 

C0L2 

01 

RIGHT  ATRIAL  ANGIOGRAPHY 

02 

PULMONARY  ANGIOGRAPHY 

03 

FORWARD  ANGIOGRAPHY 

04 

LEFT  VENTRICULAR  ANGIOGRAPHY,  LEFT  VENTRICULOGRAM 

COMPLETED 

05 

SUPRAVALVULAR  AORTOGRAPHY,  SUPERVALVULAR  AORTOGRAM  COMPLETED 

06 

CORONARY  ANGIOGRAPHY,  30NES,  CORONARY  ANGIOGRAM  COMPLETED 

07 

CORONARY  ANGIOGRAPHY,  JUDKINS,  CORONARY  ANGIOGRAM 

COMPLETED 

08 

CORONARY  ANGIOGRAPHY,  MIXED 

09 

RIGHT  VENTRICULAR  ANGIOGRAPHY 

10 

OTHER 

» 


» 


•  •  • 


> 
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Exhibit  7-27:  CAMODANGIO  Screen  -  Modify  ANGIOGRAMS  COMPLETED 


<ssaa>  <name>  <dob>  <8ex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 


modify  angiograms  completed 


1.  The  modify-angiograms-completed  option  f 1. Id  and  angiograms 

completed  field  are  mandatory. 


2.  The  SWl  name  for  the  option  field  Is  modify  record. 


. 
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Chapter  7.34:  CAIHSAM6I0 
Purpose 

To  allow  the  user  to  Insert  a  new  ANGIOGRAMS  COMPLETED  record. 
Called  Fron 


This  step  Is  called  fron  CASELANGIO  when  no  ANGIOGRAMS  COMPLETED 
record  exists  for  the  current  exaa  or  fron  CASELANGI04  or 
CASELANGI014  when  the  user  chooses  to  Insert  a  new  ANGIOGRAMS 
COMPLETED  record. 

Screen 


CAINSANGIO . 
Logic 


Purge  SWIs  for  ANGIOGRAMS  COMPLETED. 

Display  screen. 

If  Insert  record  (SWI  for  Insert-anglograms-conpleted  option  field)  »  Y 
Insert  ANGIOGRAMS  COMPLETED  record  after; 
go  to  CAMODANGIO. 

If  Insert  record  (SWI  for  Insert-anglograns-completed  option  field)  ■  N 
go  to  CAMENEXAM. 

Validation 


Insert  record  (SWI  for  nodlfy-anglograms-completed  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Angiograms  completed  -  mandatory,  table  (CAANGIOTBL)  edit  on  input  via 
COLl  on  C0L2. 


CAANGIOTBL 


COLl 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 


C0L2 

RIGHT  ATRIAL  ANGIOGRAPHY 
PULMONARY  ANGIOGRAPHY 
FORWARD  ANGIOGRAPHY 

LEFT  VENTRICULAR  ANGIOGRAPHY,  LEFT  VENTRICULOGRAM  COMPLETED 
SUPRAVALVULAR  AORTOGRAPHY,  SUPERVALVUL \R  AORTOGRAM  COMPLETED 
CORONARY  ANGIOGRAPHY,  SONES,  CORONARY  ANGIOGRAM  COMPLETED 
CORONARY  ANGIOGRAPHY,  JUDKINS,  CORONARY  ANGIOGRAM  COMPLETED 
CORONARY  ANGIOGRAPHY,  MIXED 
RIGHT  VENTRICULAR  ANGIOGRAPHY 
OTHER 
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Exhibit  7-28:  CAUiSAMGIO  Screen  -  Insert  ANGIOGRAMS  COMPLETED 


<88ap'^  <name>  <dob>  <8ex> 

<typ€>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 


insert  anglograna  completed 


angiograms  completed 


1.  The  insert-anglograms-completed  option  field  and  angiograms 
completed  field  are  mandatory. 


2.  The  SWI  name  for  the  option  field  Is  Insert  record. 
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'a; 


«) 


♦ 


» 


» 


I 


» 


» 


I 


> 


•  •••••• 


— * 
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Chapter  7.35:  CASELTBCH 
Purpose 

The  purpose  of  CASELTECH  Is  to  first  deteralne  how  many  TECHNIQUES 
records  exist  in  the  CATHETER  data  base  for  the  current  exam.  If 
there  are  no  TECHNIQUES  records,  CAINSTECH  is  called;  if  there  are 
any  TECHNIQUES  records  for  the  current  exam,  CASELTECH4  is  called 
(there  %ri.ll  never  be  more  than  4  TECHNIQUES  records  per  exam). 
There  are  no  screens  associated  with  this  step. 

Called  From 


CAMENEXAM. 

Screen 


None. 

Logic 


Select  TECHNIQUES  records  for  current  exam. 
If  NODATA, 

go  to  CAINSTECH. 

Else 

go  to  CASELTECH4. 

Validation 


None 
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Chapter  7.36:  CASELTECH4 
Purpose 

The  purpose  of  CASELTECH4  Is  to  present  up  to  four  TECHNIQUES 
records  to  the  user.  The  user  may  either  select  an  existing  record 
for  review  or  modification,  choose  to  Insert  a  new  record,  or  exit 
to  return  to  the  menu. 

Called  From 


This  step  is  entered  when  the  current  exam  has  at  least  one 
TECHNIQUES  record  associated  with  It  In  the  data  base. 

Screen 


CASELTECH4 

Logic 

1.  Retrieve  up  to  four  TECHNIQUES  records,  number  screen 
accordingly,  and  display. 

2.  If  select  record  (SWI  for  select-techniques  option 

field)  - 

a)  'O',  go  to  CAMENEXAM. 

b)  'n',  where  n  -  $DATASP,  go  to  CAMODTECH. 

c)  'n' ,  where  1  1  n  £  $DATASN,  rewind  the  TECHNIQUES 

sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  CAMODTECH. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSTECH. 

Validation 


1.  Select-techniques  option  field  -  mandatory,  numeric. 
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Exhibit  7-29:  CASELTECH4  Screen  -  Select  4  TECHNIQOES 


<ssan>  <name>  <dob>  <sex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 


select  techniques  _ 

approach  cut down  repair 

1 

2 

3 

4 


0  none  of  the  above 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
techniques  option  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 
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I 

Chapter  7.37:  CAHODTBCH 
Purpose 

To  allow  Che  user  Co  modify  an  existing  TECHNIQUES  record. 

Called  From  * 

CASELTECH4  when  the  user  selects  an  existing  TECHNIQUES  record  or 
CAINSTECH  when  a  new  record  is  entered. 


Screen 

CAMODTECH. 

Logic 

Display  screen. 

If  modify  record(modlfy-techniques  option  field)  «  N, 
go  to  CAMENEXAM. 

Else 

If  modify  record(modlfy-technlques  option  field)  -  Y, 
issue  a  modify  and  go  to  phase  I. 

Validation 

Modify  record  (SWI  for  modlfy-techniques  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Approach  -  mandatory.  Cable  lookup  on  input  via  COLl,  validate  on  C0L2. 

CAAPPTBL: 

COLl  C0L2 

01  ANTECUBITAL  VEIN,  RIGHT 

02  SAPHENOUS  VEIN,  RIGHT 

03  FEMORAL  VEIN,  RIGHT 

04  BRACHIAL  ARTERY,  RIGHT 

05  FEMORAL  ARTERY,  RIGHT 

06  ANTECUBITAL  VEIN,  LEFT 

07  SAPHENOUS  VEIN,  LEFT 

08  FEMORAL  VEIN,  LEFT 

09  BRACHIAL  ARTERY,  LEFT 

10  FEMORAL  ARTERY,  LEFT 

Cutdown  -  mandatory,  table  (YESNOTBL,  exists). 

Repair  -  mandatory,  table  lookup  on  input  via  COLl,  validate  on  C0L2. 
CAREPTBL 
COLl  C0L2 

01  PRIMARY  ARTERIAL  REPAIR 

02  PURSESTRING  ARTERIAL  REPAIR 

03  LIGATION  VENOUS 

04  VENOUS  REPAIR 

05  N/A 


» 


I 


» 


I 


I 


» 


» 


» 


•  • 


0 

\ 


Page  7-85 
Chapter  7.37 


Exhibit  7-30;  CAMODTECH  Screen  -  Modify  TECHNIQUES 


<ssan>  <name>  <dob>  <sex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patient> 


modify  techniques  _ 

approach  cutdown  repair 


1.  The  modify- techniques  option  field,  approach  field,  cutdown 
field,  and  repair  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  is  modify  record. 


•  ••••••• 
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Chapter  7.38:  CAINSTECH 

Purpose 

To  allow  the  user  to  Insert  a  new  TECHNIQUES  record. 

Called  From 

This  step  Is  called  from  CASELTECH  when  no  TECHNIQUES  records  exist 
for  the  current  exam  or  from  CASELTECH4  when  the  user  chooses  to 
Insert  a  new  TECHNIQUES  record. 

Screen 

CAINSTECH. 


Logic 

Purge  SWIs  for  TECHNIQUES. 

Display  screen. 

If  Insert  record  (SWI  for  Insert-techniques  option  field)  •  Y, 
Insert  TECHNIQUES  record  after; 
go  to  CAMODTECH. 

If  Insert  record  (SWI  for  insert-techniques  option  field)  ■  N, 
go  to  CAMENEXAM. 


Validation 

Insert  record(SWI  for  insert-techniques  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Approach  -  mandatory,  table  lookup  on  input  via  COLl,  validate  on  C0L2. 


CAAPPTBL: 

COLl  C0L2 

01  ANTECUBITAL  VEIN,  RIGHT 

02  SAPHENOUS  VEIN,  RIGHT 

03  FEMORAL  VEIN,  RIGHT 

04  BRACHIAL  ARTERY,  RIGHT 

05  FEMORAL  ARTERY,  RIGHT 

06  ANTECUBITAL  VEIN,  LEFT 

07  SAPHENOUS  VEIN,  LEFT 

08  FEMORAL  VEIN,  LEFT 

09  BRACHIAL  ARTERY,  LEFT 

10  FEMORAL  ARTERY,  LEFT 


Cutdown  -  mandatory,  table  (YESNOTBL,  exists). 

Repair  -  mandatory,  table  lookup  on  input  via  COLl,  validate  on  C0L2. 

CAREPTBL: 

COLl  C0L2 

01  PRIMARY  ARTERIAL  REPAIR 

02  PURSESTRING  ARTERIAL  REPAIR 

03  LIGATION  VENOUS 

04  VENOUS  REPAIR 

05  N/A 


I 


I 


B 


B 


» 


» 


I 


I 


•  • 


•  •  • 
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Exhibit  7-31;  CAINSTECH  Screen  -  Insert  TECHNIQUES 

1 

I 

1  <s8an>  <name>  <dob>  <sex> 

1  <type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

I 

I 

I 

I 

I  insert  techniques  _ 

I 

I  approach  cutdown  repair 


1.  The  insert-techniques  option  field,  approach  field,  cutdown 
field,  and  repair  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  is  Insert  record. 
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Chapter  7.39:  CASELCOMP 
Purpose 

The  purpose  of  CASELCOMP  is  to  first  determine  how  many 
COMPLICATIONS  records  exist  in  the  CATHETER  data  base  for  the 
current  exam.  If  there  are  no  COMPLICATIONS  records,  CAINSCOMP  is 
called;  if  there  between  1  and  4  (inclusive)  COMPLICATIONS  records 
for  the  current  exam,  CASELCOMP4  is  called;  if  there  are  more  than 
4  COMPLICATIONS  records,  CASELC0MP14  is  called.  There  are  no 
screens  associated  with  this  step. 

Called  From 


CAMENEXAM. 

Screen 


None. 

Logic 


Select  COMPLICATIONS  records  for  current  exam. 

If  NODATA, 

go  to  CAINSCOMP. 

If  0  <  $DATASN  <  4, 
go  to  CASELC0MP4. 

If  $DATASN  >  4, 

go  to  CASELC0MP14. 

Validation 

None. 
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Chapter  7. AO:  CASELCOMPA 

Purpose 

The  purpose  of  CASELCOMPA  is  to  present  up  to  four  COMPLICATIONS 
records  to  the  user.  The  user  may  either  select  an  existing  record 
for  review  or  modification,  choose  to  Insert  a  new  record,  or  exit 
to  return  to  the  menu. 

Called  From 

This  step  is  entered  when  the  current  exam  has  between  1  and  A 
(inclusive)  COMPLICATIONS  records  associated  with  it  in  the  data 
base . 

Screen 


CASELCOMPA 

Logic 

1.  Retrieve  up  to  four  COMPLICATIONS  records,  number  screen 
accordingly,  and  display. 

2.  If  select  record  (SWI  for  select-complications  option  field) 

•M 

a)  'O',  go  to  CAMENEXAM. 

b)  'n',  where  n  -  $DATASP,  go  to  CAMODCOMP. 

c)  'n' ,  where  1  n  ^  $DATASN,  rewind  the  COMPLICATIONS 
sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  CAMODCOMP. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSCOMP. 

Validation 

1.  Select-complications  option  field  -  mandatory,  numeric. 
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Exhibit  7-32;  CASIELC0MP4  Screen  -  Select  4  COMPLICATIONS 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patient> 


select  complications 
complication 

1 

2  _ 

3 

4  _ 

0  none  of  the  above 


% 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
complications  option  field. 

2.  The  SWl  name  for  the  option  field  is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 
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Chapter  7.41:  CASELC0MP14 
Purpose 

The  purpose  of  CASELC0MP14  is  to  present  up  to  fourteen 
COMPLICATIONS  records  to  the  user.  The  user  may  either  select  an 
existing  record  for  review  or  modification,  choose  to  Insert  a  new 
record,  or  exit  to  return  to  the  menu. 

Called  From 

This  step  is  entered  when  the  current  exam  has  more  chan  four 
COMPLICATIONS  records  associated  with  it  in  the  data  base. 

Screen 

CASELC0MP14 

Logic 

1.  Retrieve  up  to  fourteen  COMPLICATIONS  records,  number  screen 
accordingly,  and  display. 

2.  If  'select  record' 

(SWI  for  select-complications  option  field)  =* 

a)  'O',  go  to  CAMENEXAM. 

b)  'n',  where  n  =»  $DATASP,  go  to  CAMODCOMP. 

c)  'n',  where  1  <  n  $DATASN,  rewind  the  COMPLICATIONS 

sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  CAMODCOMP. 

d)  'n' ,  where  n  >  $DATASN,  go  to  CAINSCOMP. 

Validation 

1.  Select-complications  option  field  (SWI  select  record)  - 
mandatory,  numeric. 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
complications  option  field. 

2.  The  SWI  name  for  the  option  field  is  select  record. 

3.  The  numbers  cr  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 
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Chapter  7.42:  CAMODCOMP 

Purpose 

To  allow  the  user  to  modify  an  existing  COMPLICATIONS  record. 

Called  From 

CASELC0MP4  or  CASELC0MP14  when  the  user  selects  an  existing 
COMPLICATIONS  record  or  CAINSCOMF  when  a  new  record  is  entered. 

Screen 

CAMODCOMP. 

Logic 

Display  screen. 

If  modify  record(modlfy-complicatlons  option  field)  «  N, 
go  to  CAMENEXAM. 

Else 

If  modify  record(modlfy-complicatlons  option  field)  -  Y, 

Issue  a  modify  and  go  to  phase  1. 

Validation 

Modify  record  (SWI  for  mod Ify-complicat Ions  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Complication  -  mandatory,  edit  table  (CACOMPTBL)  lookup  on  Input  via 
COLl,  validate  on  C0L2. 

CACOMPTBL : 

COLl  C0L2 

01  NONE 

02  DEATH 

03  MYOCARDIAL  INFARCTION 

04  VENTRICULAR  FIBRILLATION 

05  VENTRICULAR  TACHYCARDIA 

06  SUPRAVENTRICULAR  TACHYCARDIA 

07  ATRIOVENTRICULAR  BLOCK 

08  ASYSTOLE  OR  MARKED  BRADYCARDIA 

09  ANY  ARRYTHMIA  LEADING  TO  DISCONTINUATION  OF  THE  PROCEDURE 

10  PROFOUND  HYPOTENSION 

11  INTRAMYOCARDIAL  INJECTION 

12  MYOCARDIAL  PERFORATION 

13  PERFORATION  OF  GREAT  VESSELS 

14  DIMINISHED  PULSE 

15  LOSS  OF  PULSE  WITHOUT  SYMPTOMS 

16  LOSS  OF  PULSE  WITH  SYMPTOMS 

17  LOSS  OF  PULSE  OR  ARTERIAL  DAMAGE  REQUIRING  SURGICAL  REPAIR 

18  A-V  FISTULA 

19  VASOVAGAL  REACTION  REQUIRING  TREATMENT 

20  COMPLETE  HEART  BLOCK 

21  EXTRACARDIAC  EMBOLIC  PHENOMENA 

22  DRUG/CONTRAST  REACTION 

23  ANGINA 

24  EQUIPMENT  FAILURE 
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/ 


Exhibit  7-34:  CAMODCOMP  Screen  -  Modify  COMPLICATIONS 


♦ 


<ssan>  <name>  <dob>  <sex> 

<type>  ' .aae  #>  <doe>  <cath  no>  <no.  for  patlent> 


modify  complications 
complication 


1.  The  modlfy-compllcatlons  option  field  and  complication  field  are 
mandatory. 

2.  The  SWI  name  for  the  option  field  Is  modify  record. 


> 


» 
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I 


Chapter  7.43:  CAINSCOMP 

Purpose 

To  allow  the  user  to  Insert  a  new  COMPLICATIONS  record. 

Called  From 

This  step  Is  called  from  CASELCOMP  when  no  COMPLICATIONS  records 
exist  for  the  current  exam  or  from  CASELC0MP4  or  CASELC0MP14  when 
the  user  chooses  to  Insert  a  new  COMPLICATIONS  record. 

Screen 

CAINSCOMP . 

Logic 

Purge  SWIs  for  COMPLICATIONS. 

Display  screen. 

If  Insert  record  (SWI  for  insert-complications  option  field)  =  Y, 
insert  COMPLICATIONS  record  after; 
go  to  CAMODCOMP. 

If  insert  record  (SWI  for  insert-complications  option  field)  =•  N, 
go  to  CAMENEXAM. 

Validation 


Insert  record(SWI  for  insert-complications  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Complication  -  mandatory,  edit  table  (CACOMPTBL)  lookup  on  input  via 
COLl,  validate  on  C0L2. 

CACOMPTBL: 

COLl  C0L2 

01  NONE 

02  DEATH 

03  MYOCARDIAL  INFARCTION 

04  VENTRICULAR  FIBRILLATION 

05  VENTRICULAR  TACHYCARDIA 

06  SUPRAVENTRICULAR  TACHYCARDIA 

07  ATRIOVENTRICULAR  BLOCK 

08  ASYSTOLE  OR  MARKED  BRADYCARDIA 

09  ANY  ARRYTHMIA  LEADING  TO  DISCONTINUATION  OF  THE  PROCEDURE 

10  PROFOUND  HYPOTENSION 

11  INTRAMYOCARDIAL  INJECTION 


» 


I 


» 


I 


» 


» 


I 


» 


•  •  •  •  •  •  • 
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t 


12  MYOCARDIAL  PERFORATION 

13  PERFORATION  OF  GREAT  VESSELS 

14  DIMINISHED  PULSE 

15  LOSS  OF  PULSE  WITHOUT  SYMPTOMS 

16  LOSS  OF  PULSE  WITH  SYMPTOMS 

17  LOSS  OF  PULSE  OR  ARTERIAL  DAMAGE  REQUIRING  SURGICAL  REPAIR 

18  A-V  FISTULA 

19  VASOVAGAL  REACTION  REQUIRING  TREATMENT 

20  COMPLETE  HEART  BLOCK 

21  EXTRACARDIAC  EMBOLIC  PHENOMENA 

22  DRUG/ CONTRAST  REACTION 

23  ANGINA 

24  EQUIPMENT  FAILURE 
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Exhibit  7-35:  CAIHSCOHP  Screen  -  Insert  COMPLICATIONS 


<ssan>  <name>  <dob>  <sex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 

Insert  complications 
complication 


1.  The  ii^ert-complications  option  field  and  complication  field  are 
mandatory. 

2.  The  SWI  name  for  the  option  field  is  insert  record. 
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Chapter  7.44:  CASELLVEF 
Purpose 

The  purpose  of  CASELLVEF  Is  to  first  determine  how  many  LV  EJECTION 
FRACTIONS  records  exist  In  the  CATHETER  data  base  for  the  current 
exam.  If  there  are  no  LV  EJECTION  FRACTIONS  records,  CAINSLVEF  Is 
called;  if  there  are  any  LV  EJECTION  FRACTIONS  records  for  the 
current  exam,  CASELLVEF4  Is  called  (there  will  never  be  more  than  4 
LV  EJECTION  FRACTIONS  records  per  exam).  There  are  no  screens 
associated  with  this  step. 

Called  From 

CAMENEXAM. 

Screen 

None. 

Logic 

Select  LV  EJECTION  FRACTIONS  records  for  current  exam. 

If  NODATA, 

go  to  CAINSLVEF. 

Else 

go  to  CASELLVEF4. 

Validation 

None. 
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Chapter  7.45:  CASELLVEF4 
Purpose 


The  purpose  of  CASELLVEF4  la  to  present  up  to  four  LV  EJECTION 
FRACTIONS  records  to  the  user.  The  user  may  either  select  an 
existing  record  for  review  or  modification,  choose  to  Insert  a  new 
record,  or  exit  to  return  to  the  menu. 

Called  From 


This  step  Is  entered  when  the  current  exam  has  at  least  one  LV 
EJECTION  FRACTIONS  record  associated  with  It  In  the  data  base. 

Screen 


CASELLVEF4 

Logic 


1.  Retrieve  up  to  four  LV  EJECTION  FRACTIONS  records,  number 
screen  accordingly,  and  display. 

2.  If  select  record  (SWI  for  select-lv  ejection  fractions 
option  field)  » 

a)  *0’,  go  to  CAMENEXAM. 

b)  'n',  where  n  »  $DATASP,  go  to  CAMODLVEF. 

c)  'n' ,  where  1  <  n  <  $DATASN,  rewind  the  LV  EJECTION 
FRACTIONS  sibling  chain  and  retrieve  the  nth  record  via 
$S2KC0UNT.  Go  to  CAMODLVEF. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSLVEF. 

Validation 

1.  Select-lv  ejection  fractions  option  field  -  mandatory, 
numeric. 
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Exhibit  7-36:  CASELLVEF4  Screen  -  Select  4  LV  EJECTION  FRACTIONS 

H - 

I 

I 

I  <ssan>  <name>  <dob>  <sex> 

I  <type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 

I 

I 

I 

j  select  Iv  ejection  fractions  _ 

ejection  fraction 

0  none  of  the  above 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
Iv  ejection  fractions  option  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
jy  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


workload  method 

1 

2 

3 

4 
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Chapter  7.46:  CAMODLVEF 
Purpose 

To  allow  the  user  to  modify  an  existing  LV  EJECTION  FRACTIONS 
record. 

Called  From 

CASELLVEF4  when  the  user  selects  an  existing  LV  EJECTION  FRACTIONS 
record  or  CAINSLVEF  when  a  new  record  Is  entered. 

Screen 

CAMODLVEF. 

Logic 

Display  screen. 

If  modify  record(modify-lv  ejection  fractions  option  field)  »  N, 
go  to  CAMENEXAM. 

Else 

If  modify  record(modlfy-lv  ejection  fractions  option  field)  =•  Y, 
Issue  a  modify  and  go  to  phase  1. 

Validation 

Modify  record  (SWI  for  modlfy-lv  ejection  fractions  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Workload  -  mandatory,  range  (0-20000). 

Method  -  mandatory,  table  ( CAMETHODTBL- 

DODGE  AREA-LENGTH 
SIMPSON  ) . 

Ejection  fraction  -  mandatory,  range  (10-80). 
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Exhibit  7-37;  CAMODLVEF  Screen  -  Modify  LV  EJECTION  FRACTIONS 


<8san>  <naiae>  <dob>  <8ex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patient> 


modify  Iv  ejection  fractlona 
workload  method 


ejection  fraction 


I 


1.  The  modify- Iv  ejection  fractions  option  field,  workload  field, 
method  field,  and  ejection  fraction  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  is  modify  record. 


•  • 


•  • 
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Chapter  7.47:  CAINSLVEF 
Purpose 


To  allow  the  user  to  Insert  a  new  LV  EJECTION  FRACTIONS  record. 
Called  From 


This  step  Is  called  from  CASETXVEF  when  no  LV  EJECTION  FRACTIONS 
records  exist  for  the  current  exam  or  from  CASELLVEF4  when  the  user 
chooses  to  Insert  a  new  LV  EJECTION  FRACTIONS  record. 

Screen 


CAINSLVEF. 

Logic 


Purge  SWIs  for  workload,  method,  and  ejection  fractions. 

Display  screen. 

If  Insert  record  (SWI  for  Insert-lv  ejection  fractions  option  field)-  Y 
Insert  LV  EJECTION  FRACTIONS  record  after; 
go  to  CAMODLVEF. 

If  insert  record  (SWI  for  Insert-lv  ejection  fractions  option  field)-  N 
go  to  CAMENEXAM. 

Validation 


Insert  record  (SWI  for  Insert-lv  ejection  fractions  option  field) 
-  mandatory,  table  (YESNOTBL,  exists) . 

Workload  -mandatory,  range  (0-20000). 


Method 


-  mandatory,  table  ( CAMETHODTBL- 
DODGE  AREA-LENGTH 
SIMPSON  ) . 


Ejection  fraction  -  mandatory,  range  (10-80). 


✓ 

V 
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Exhibit  7-38:  CAIHSLVEF  Screen  -  Insert  LV  EJECTION  FRACTIONS 

I 

I 

I  <ssan>  <name>  <dob>  <sex> 

I  <type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

I 

I 

I 

I 

I  insert  Iv  ejection  fractions  _ 

I 

{  workload  method  ejection  fraction 


1.  The  insert- Iv  ejection  fractions  option  field,  workload  field, 
method  field,  and  ejection  fraction  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  is  insert  record. 


•  ••••••• 
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Chapter  7.48;  CASELINTER 
Purpose 


The  purpose  of  CASELINTER  Is  to  first  determine  how  many 
INTERPRETATIONS  records  exist  in  the  CATHETER  data  base  for  the 
current  exam.  If  there  are  no  INTERPRETATIONS  records,  CAINSINTER 
is  called;  if  there  are  any  INTERPRETATIONS  records  for  the  current 
exam,  CASELINTER4  is  called  (there  will  never  be  more  than  4 
INTERPRETATIONS  records  per  exam).  There  are  no  screens  associated 
with  this  step. 

The  “Interpretations"  steps  are  a  little  bit  different  than 
previous  processing  due  to  the  complexity  in  the  organization  of 
records.  As  a  result,  this  set  of  steps  will  have  two  modify 
steps.  The  first  modify  step  will  be  the  conventional  modify  step 
associated  with  any  selection  or  insert.  The  second  modify  step 
will  allow  the  user  to  view  updated  INTERPRETATIONS  data  including 
data  that  the  transaction  has  update  control  over  based  on  the 


insertion  of 

specific 

lower 

level 

descendants 

to 

the 

INTERPRETATIONS 

record . 

Called  From 


CAMENEXAM. 

Screen 


None. 

Logic 

Select  INTERPRETATIONS  records  for  current  exam. 
If  NODATA, 

go  to  CAINSINTER. 

Else 

go  to  CASELINTER4. 

Validation 


None. 
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Chapter  7.49:  CASELI1ITBR4 
Purpose 


The  purpose  of  CASELINTER4  Is  to  present  up  to  four  existing 
INTERPRETATIONS  records  to  the  user.  The  user  may  either  select  an 
existing  record  for  review  or  modification,  choose  to  Insert  a  new 
record,  or  exit  to  return  to  the  menu.  Due  to  the  size  of  the 
component  names  In  the  record,  only  four  are  presented  to  base  the 
selection  on. 

Called  From 


This  step  Is  called  from  CASELINTER  when  the  current  exam  has  at 
least  one  INTERPRETATIONS  record  associated  with  It  In  the  data 
base . 

Screen 


CASELINTER4 

Logic 

1.  Retrieve  up  to  four  INTERPRETATIONS  records,  number  screen 
accordingly,  and  display. 

2.  If  select  record  (SWI  for  select-interpretations  option 
field)  « 

a)  *0',  go  to  CAMENEXAM. 

b)  'n',  where  n  -  $DATASP,  go  to  CAMODINTER. 

c)  'n',  where  15  n  _<  $DATASN,  rewind  the  INTERPRETATIONS 
sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  CAMODINTER. 

d)  ’n',  where  n  >  $DATASN,  go  to  CAINSINTER. 

Validation 

1.  Select-Interpretations  option  field  -  mandatory,  numeric. 


•  • 


•  • 


•  •  • 
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✓ 


Exhibit  7-39:  CASEL1MTER4  Screen  -  Select  4  INTERPRETATIONS 


<ssan>  <naae>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 


select  Interpretations 


left 

coronary 

total 

reading 

ventriculography 

angiography 

percent 

1 

mm/dd/yy 
/  / 

normal 

normal 

narrowed 

2 

/  / 

3 

/~/ 

4 

0 

none  of  the 

above 

1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
interpretations  option  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


•  ••••••• 
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Chapter  7.50:  CAMODINTER 

Purpose 

To  allow  the  user  to  modify  certain  fields  in  an  existing 
INTERPRETATIONS  record.  Modification  of  other  fields  is  controlled 
by  the  transaction  and  is  a  direct  result  of  descendant  records 
Inserted. 

Called  From 


CASELINTERA  when  the  user  selects  an  existing  INTERPRETATIONS 
record  or  CAINSINTER  when  a  new  record  la  entered. 

Screen 


CAMODINTER. 

Logic 


Display  screen. 

If  modify  record(modify-interpretations  option  field)  =  N, 
go  to  CAMENINTER. 

Else 

If  modify  record(modify-lnterpretatioos  option  field)  =•  Y, 
issue  a  modify  and  go  to  phase  1. 

Validation 


Modify  record  (SWI  for  modify-lnterpretatlons  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Reading  -  mandatory,  defaults  to  DOE. 

Circulatory  pattern  -  mandatory,  table(CACIRCTBL) ;  edit  on  COLl  and 

validate  on  C0L2. 


CACIRCTBL: 

COLl  C0L2 

1  RIGHT  DOMINANT 

2  BALANCED 

3  LEFT  DOMINANT 


Number  of  posterior  descending  branches  -  range  (0-4). 
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Exhibit  7-40:  CAMODINTER  Screen  -  Modify  INTERPRETATIONS 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 


modify  interpretations  _ 

reading  _ / _ / _ 

supervalvular  aortography  normal 
left  ventriculography  normal 
coronary  angiography  normal 

circulatory  pattern  _ 

coronary  calcification 
myocardial  bridges 
coronary  spasm 
collateral  present 
coronary  anomaly 

number  of  posterior  descending  branches 
total  pet  narrowed  _ 


1.  The  modify-lnterpretations  option  field,  the  reading  field,  the 
circulatory  pattern  field,  and  the  number  of  posterior  descending 
branches  field  are  unprotected  and  mandatory. 

2.  All  other  fields  on  the  screen  are  protected. 

3.  The  SWI  name  for  the  option  field  is  modify  record. 
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Chapter  7.51:  CAINSINTER 

Purpose 

To  allow  the  user  to  insert  a  new  INTERPRETATIONS  record. 
Called  From 


This  step  is  called  from  CASELINT2R  when  no  INTERPRETATIONS  records 
exist  for  the  current  exam  or  from  CASELINTER4  when  the  user 
chooses  to  insert  a  new  INTERPRETATIONS  record. 

Screen 


CAINSINTER. 

Logic 


Purge  SWIs  for  INTERPRETATIONS  record. 

Display  screen. 

If  insert  record  (SWI  for  insert-interpretations  option  field)  *  Y, 
Insert  INTERPRETATIONS  record  after; 
go  to  CAMODINTER. 

If  insert  record  (SWI  for  insert-interpretations  option  field)  »  N, 
go  to  CAMENEXAM. 

Validation 


Insert  record  (SWI  for  modify- interpretations  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Reading  -  mandatory,  defaults  to  DOE. 

Circulatory  pattern  -  mandatory,  table(CACIRCTBL) ;  edit  on  COLl  and 

validate  on  C0L2. 


CACIRCTBL: 

COLl  C0L2 

1  RIGHT  DOMINANT 

2  BALANCED 

3  LEFT  DOMINANT 


Number  of  posterior  descending  branches  -  range  (0-4). 


» 
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Chapter  7.52:  CAMENINTER 

Purpose 


> 


To  allow  the  user  a  choice  of  which  level  3  records  to  work  with. 

All  records  dealt  with  from  this  menu  attach  to  the  current  ^ 

INTERPRETATIONS  record.  All  lower  level  steps  return  to  menu.  Upon 
exiting  the  menu,  CAMODINTERF  (final  modification  to 
INTERPRETATIONS  record)  Is  called. 

Called  From 

-  » 

This  step  is  entered  from  CAMOOINTER  and  all  steps  that  the  menu 
calls. 

Screen 

CAMENINTER  » 

sk 

Logic 

Display  Screen. 


If  the  select-next-step  optii 

go 

to 

CASELSUPRA. 

'2'. 

go 

to 

CASELLVCA. 

'3', 

go 

to 

CASELOLVA. 

'4', 

go 

to 

CASELCOROC. 

'5*, 

go 

to 

CASELMYOCB. 

'6*, 

go 

to 

CASELCOROS . 

*7', 

go 

to 

CASELCOROP 

•8', 

go 

to 

CASELCOLL . 

•9', 

go 

to 

CASELCOROA. 

•10* , 

go 

to 

CASELDIAG. 

'll'. 

go 

to 

CASELREAD . 

'O', 

go 

to 

CAMODINTERF 

(final  modification  step  prior  to 
exiting  the  interpretations  steps) 


Validation 


Select-next-step-option  field  -  mandatory,  range  (0-11). 


> 


» 


•  • 


•  •  •  .  '  • 


w 
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Exhibit  7-42:  CAMENINTER  -  MENU  For  INTERPRETATIONS  Child  Records 


<ssan>  <name>  <dob>  <sex> 

<r.ype>  <case  #>  <doe>  <cath  no>  <no.  for  patient> 

<reading>  <lv  normal>  <coronary  angiography  normal>  <total  X  narrowed> 


select  next  step  _ 

1  select  supervalvular  aortography  findings 

2  select  Iv  contraction  abnormalities 

3  select  other  Iv  abnormalities 

4  select  coronary  calcifications 

5  select  myocardial  bridges 

6  select  coronary  spasms 

7  select  coronary  plaques 

8  select  collaterals 

9  select  coronary  anomalies 

10  select  diagnosis 

11  select  readers 


0  exit  -  view  final  interpretations  record 


1.  Select  next  step  option  field  only  unprotected  field. 
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I 
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Chapter  7.53:  CASELSUPRA 
Purpose 

The  purpose  of  CASELSUPRA  Is  to  first  determine  how  many 
SUPRAVALVULAR  AORTOGRAPHY  FINDINGS  (hereafter  referred  to  as  SAF) 
records  exist  in  the  CATHETER  data  base  for  the  current 
interpretation.  If  there  are  no  SAF  records,  CAINSSUPRA  is  called; 
if  there  are  any  SAF  records  for  the  current  interpretation, 
CASELSUPRAA  is  called  (there  will  never  be  more  than  4  SAF  records 
per  interpretation) .  There  are  no  screens  associated  .d.th  this 
step. 

Called  From 


CAMENINTER. 

Screen 


None. 

Logic 

Select  SAF  records  for  current  interpretation. 
If  NODATA, 

go  to  CAINSSUPRA. 

Else 

go  to  CASELSUPRAA. 

Validation 


None. 


•  •  • 


•  • 
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Chapter  7.54:  CASELSUPRA4 

Purpose 

The  purpose  of  CASELSUPRA4  is  to  present  up  to  four  SAP  records  to 
the  user.  The  user  may  either  select  an  existing  record  for  review 
or  modification,  choose  to  Insert  a  new  record,  or  exit  to  return 
to  the  interpretations  menu. 

Called  From 

This  step  is  entered  when  the  current  interpretation  has  at  least 
one  SAP  record  associated  with  it  in  the  data  base. 

Screen 

CASELSUPRA4 

Logic 

1.  Retrieve  up  to  four  SAP  records,  number  screen  accordingly, 
and  display. 

2.  If  select  record  (SWI  for  select-saf  option  field)  ■ 

a)  'O',  go  to  CAMENINTER. 

b)  'n*.  where  n  -  $DATASP,  go  to  CAMODSUPRA. 

c)  'n',  where  1  n  £  $DATASN,  rewind  the  SAP  sibling  chain 
and  retrieve  the  nth  record  via  $S2KC0UNT.  Go  to 
CAMODSUPRA. 

d)  ’n',  where  n  >  $DATASN,  go  to  CAINSSUPRA. 

Validation 

1.  Select-saf  option  field  -  mandatory,  numeric. 
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Exhibit  7-43:  CASELSUPRA4  Screen  -  Select  4  SAP  Records 


<ssan>  <name>  <dob>  <8ex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coroaary  angiography  normal>  <total  X  narrowed> 


select  supravalvular  aortography  findings 

supravalvular  aortography  finding 

1  _ 

2 

3 

4  _ 

0  none  of  the  above 


% 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
saf  option  field. 

2.  The  SWI  name  for  the  option  field  is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


•  • 


•  •  • 


I 
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I 

Chapter  7.55:  CAMODSUPBA 

Purpose 

To  allow  the  user  to  modify  an  existing  SAP  record. 

Called  From  * 

CASELSIJPRA4  when  the  user  selects  an  existing  SAP  record  or 
CAINSSUPRA  when  a  new  record  Is  entered. 


Screen 

CAMODSUPRA. 

» 

Logic 

Display  screen. 

If  modify  record(modlfy-saf  option  field)  “  N, 
go  to  CAMENINTER. 

Else 

If  modify  record(modlfy-saf  option  field)  •  Y,  • 

Issue  a  modify  and  go  to  phase  1. 

Validation 


Modify  record  (SWI  for  modify-saf  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Supravalvular  aortography  finding  -  mandatory,  table(CASUPRATBL) 
Input  on  COLl  and  edit  to  C0L2. 

CASUPRATBL : 


COLl 

C0L2 

01 

NORMAL 

02 

DILITATION  OF  AORTA 

03 

ANEURYSM  OF  AORTA 

04 

DISSECTION  OF  AORTA 

05 

UNICUSPID  AORTIC  VALVE 

06 

BICUSPID  AORTIC  VALVE 

07 

ANEURYSM  SINUS  VALSALVA 

08 

AORTIC  REGURGITATION,  GRADE 

I 

09 

AORTIC  REGURGITATION,  GRADE 

II 

10 

AORTIC  REGURGITATION,  GRADE 

III 

11 

AORTIC  REGURGITATION,  GRADE 

IV 

12 

AORTIC  RUN  OFF  LESION,  OTHER 

13 

CALCIUM,  ASCENDING  AORTA 

14 

CALCIUM,  AORTIC  VALVE 

15 

OTHER 

» 


» 


» 


» 


» 


» 


•  •  • 


•  •  •  •  '  • 


w 


✓ 

V 
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Exhibit  7-44:  CAMODSUPRA  Screen  -  Modify  SAP  Record 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patienO 
<reading>  <lv  normal>  <coronary  angiography  normal>  <total  X  narrowed> 


modify  supravalvular  aortography  findings 
supravalvular  aortography  finding 


1.  Tho  modify-saf  option  field  and  saf  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  is  modify  record. 
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Chapter  7.56:  CAINSSUPRA 
Purpose 

To  allow  the  user  to  Insert  a  new  SAP  record. 

Called  From 

This  step  is  called  from  CASELSUPRA  when  no  SAP  record  exist  for 
the  current  Interpretation  or  from  CASELSUPRA4  when  the  user 
chooses  to  insert  a  new  SAP  record. 

Screen 

CAINSSUPRA. 

Logic 

Purge  SWIs  for  SAP. 

Display  screen. 

If  insert  record  (SWI  for  insert-saf  option  field)  =  Y, 

Insert  SAP  record  after; 

modify  SUPRAVALVULAR  AORTOGRAPHY  NORMAL 

in  parent  INTERPRETATIONS  record  to  N;( indicates  descendant) 
go  to  CAMODSUPRA. 

If  insert  record  (SWI  for  insert-saf  option  field)  »  N, 
go  to  CAMENINTER. 

Validation 

Insert  record(SWI  for  insert-saf  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Supravalvular  aortography  finding  -  mandatory,  table(CASUPRATBL) 
input  on  COLl  edit  to  C0L2. 

CASUPRATBL : 


COLl 

C0L2 

01 

NORMAL 

02 

DILITATION  OF  AORTA 

03 

ANEURYSM  OF  AORTA 

04 

DISSECTION  OF  AORTA 

05 

UNICUSPID  AORTIC  VALVE 

06 

BICUSPID  AORTIC  VALVE 

07 

ANEURYSM  SINUS  VALSALVA 

08 

AORTIC  REGURGITATION,  GRADE 

I 

09 

AORTIC  REGURGITATION,  GRADE 

II 

10 

AORTIC  REGURGITATION,  GRADE 

III 

11 

AORTIC  REGURGITATION,  GRADE 

IV 

12 

AORTIC  RUN  OFF  LESION,  OTHER 

13 

CALCIUM,  ASCENDING  AORTA 

14 

CALCIUM,  AORTIC  VALVE 

15 

OTHER 
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Exhibit  7-45:  CAINSSUPRA  Screen  -  Insert  SAP 


<S8an>  <narae>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

<reading>  <lv  nornial>  <coronary  angiography  normal>  <total  X  narrowed> 

insert  supravalvular  aortography  findings  _ 
supravalvular  aortography  finding 


1.  The  insert-saf  option  field  and  saf  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  is  insert  record. 
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I 


» 


I 


I 


» 


» 


» 


» 


» 


» 


•  •  •  •  •  •  •  •  • 
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Chapter  7.57:  CASELLVCA 

Purpose 


The  purpose  of  CASELLVCA  is  to  first  determine  how  many  LV 
CONTRACTION  ABNORMALITIES  (hereafter  referred  to  as  LVCA)  records 
exist  in  the  CATHETER  data  base  for  the  current  interpretation.  If 
there  are  no  LVCA  records,  CAINSLVCA  is  called;  if  there  are  any 
LVCA  records  for  the  current  Interpretation,  CASELLVCA4  is  called 
(there  will  never  be  more  than  4  LVCA  records  per  Interpretation). 
There  are  no  screens  associated  with  this  step. 

Called  From 


CAMENINTER. 

Screen 


None. 

Logic 

Select  LVCA  records  for  current  interpretation. 
If  NODATA, 

go  to  CaINSLVCA. 

Else 

go  to  CASELLVCA4. 

Validation 


None. 
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I 


Chapter  7.58:  CASELLVCA4 
Purpose 

The  purpose  of  CASELLVCA4  Is  to  present  up  to  four  LV  CONTRACTION 
ABNORMALITIES  (hereafter  referred  to  as  LVCA)  records  to  the  user. 
The  user  may  either  select  an  existing  record  for  review  or 
modification,  choose  to  insert  a  new  record,  or  exit  to  return  to 
the  Interpretations  menu. 

Called  From 


This  step  is  entered  when  the  current  interpretation  has  at  least 
one  LVCA  record  associated  with  it  in  the  data  base. 

Screen 


I 


I 


» 


CASELLVCA4  » 

Logic 


1.  Retrieve  up  to  four  LVCA  records,  number  screen  accordingly, 
and  display. 

2.  If  select  record  (SWI  for  select-lvca  option  field)  • 

a)  'O',  go  to  CAMENINTER. 

b)  'n' ,  where  n  -  $DATASP,  go  to  CAMODLVCA. 

c)  'n',  where  1  £  n£  $DATASN,  rewind  the  LVCA  sibling 
chain  and  retrieve  the  nth  record  via  $S2KC0UNT.  Go  to 
CAMODLVCA. 

d)  'n' ,  where  n  >  $DATASN,  go  to  CAINSLVCA. 

Validation 


» 


I 


» 


1.  Select-lvca  option  field  -  mandatory,  numeric. 


» 


» 


» 


•  •  •  • 


•  • 
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Exhibit  7-46:  CASBU.VCA4  Screen  -  Select  4  LVCA  Records 


H - ► 

I  I 

I  I 

I  <ssaa>  <name>  <dob>  <sex>  | 


<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coroaary  angiography  nonnal>  <total  Z  narrowed> 


select  Iv  contraction  abnormalities  _ 

abnormal  Iv  contraction  site  Iv  contraction  abnormality 

1 

2 

3 

4 


0  none  of  the  above 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
Ivca  option  field. 

2.  The  SWI  name  for  the  option  field  is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


I 
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Chapter  7.59:  CAMOOLVCA 
Purpose 

To  allow  the  user  to  modify  an  existing  LVCA  record. 

Called  From 

CASELLVCA4  when  the  user  selects  an  existing  LVCA  record  or 
CAINSLVCA  when  a  new  record  Is  entered. 

Screen 

CAMOOLVCA. 

Logic 

Display  screen. 

If  modify  record(modlfy-lvca  option  field)  ■  N, 
go  to  CAMENINTER. 

Else 

If  modify  record(modlfy-lvca  option  field)  «  Y, 

Issue  a  modify  and  go  to  phase  1. 

Validation 


I 


I 


I 


Modify  record  (SWI  for  modlfy-lvca  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Abnormal  Iv  contraction  site  -  mandatory,  table(CAALVCSTBL) , 

Input  on  COLl  edit  to  C0L2. 

CAALVCSTBL: 

COLl  C0L2 

1  ANTERIOR  WALL 

2  APEX 

3  DIAPHRAGMATIC 

4  POSTEROBASAL 

5  POSTEROLATERAL 

6  SEPTAL  HALL 

Lv  contraction  abnormality  -  mandatory,  table(CALVCATBL) 

Input  on  COLl  edit  to  C0L2. 

CALVCATBL: 


I 


» 


COLl  C0L2 

1  AKINESIS 

2  DYSKINESIS 

3  HYPOKINESIS 

4  ASYNCHRONY  » 


L 
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✓ 


Exhibit  7-47:  CAMODLVCA  Screen  -  Modify  LVCA  Eecords 


+- - ^ 

I  I 

I  I 

I  <ssan>  <name>  <dob>  <sex>  ! 


<type>  <case  #>  <doe>  <cath  ao>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coroaary  angiography  nonial>  <total  X  narrowed> 

modify  Iv  contraction  abnormalities  _ 

abnormal  Iv  contraction  site  Iv  contraction  abnormality 


1.  The  modlfy-lv-contractlon-abnormalltles  option  field,  abnormal  Iv 
contraction  site  field,  and  Iv  contraction  abnormality  field  are 
mandatory. 

2.  The  SWI  name  for  the  option  field  Is  modify  record. 


•  ••••••• 
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Chapter  7.60:  CAIliSLVCA 
Purpose 

To  allow  the  user  to  insert  a  new  LVCA  record. 

Called  Froa 

This  step  is  called  from  CASELLVCA  when  no  LVCA  records  exist  for 
the  current  Interpretation  or  from  CASELLVCA4  when  the  user  chooses 
to  insert  a  new  LVCA  record. 

Screen 

CAINSLVCA. 

Logic 

Purge  SUIs  for  abnormal  Iv  contraction  site  and  Iv  contraction 
abnormality  data. 

Display  screen. 

If  Insert  record  (SWI  for  insert-lvca  option  field)  -  Y, 

Insert  LVCA  record  after; 
modify  LEFT  VETRICULOGRAPHY  NORMAL 

in  parent  INTERPRETATIONS  record  to  N;  (indicates  descendant) 
go  to  CAMODLVCA. 

If  Insert  record  (SWI  for  insert-lvca  option  field)  *  N, 
go  to  CAMENINTER. 

Validation 

Insert  record(SWI  for  insert-lvca  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Abnormal  Iv  contraction  site  -  mandatory,  table(CAALVCSTBL) , 
input  on  COLl  edit  to  C0L2. 

CAALVCSTBL: 

COLl  C0L2 

1  ANTERIOR  WALL 

2  APEX 

3  DIAPHRAGMATIC 

4  POSTEROBASAL 

5  POSTEROLATERAL 

6  SEPTAL  WALL 

Lv  contraction  abnormality  -  mandatory,  table(CALVCATBL) 
input  on  COLl  edit  to  C0L2. 

CALVCATBL: 

COLl  C0L2 

1  AKINESIS 

2  DYSKINESIS 

3  HYPOKINESIS 

4  ASYNCHRONY 


» 


» 


» 


> 


» 


I 


» 


•  • 
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Exhibit  7-48:  CAINSLVCA  Screen  -  Insert  LVCA  Records 


<ssan>  <name>  <dob>  <sex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coronary  angiography  nonBaI>  <total  Z  aarrowed> 

Insert  Iv  contraction  abnormalities  _ 

abnormal  Iv  contraction  site  Iv  contraction  abnormality 


1.  The  Insert- Iv  contraction  abnormalities  option  field  and  Iv 
contraction  abnormalities  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  Is  insert  record. 
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I 


» 


» 


» 


» 


» 


I 


I 


» 


•  •  •  •  •  •  •  • 
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Chapter  7.61:  CASELOLVA 

Purpose 


The  purpose  of  CASELOLVA  Is  to  first  determine  how  luany  OTHER  LV 
ABNORHALITIES  (hereafter  referred  to  as  OLVA)  records  exist  in  the 
CATHETER  data  base  for  the  current  interpretation.  If  there  are  no 
OLVA  records,  CAINSOLVA  is  called;  if  there  are  any  OLVA  records 
for  the  current  interpretation,  CASEL0LVA4  is  called  (there  will 
never  be  more  than  4  OLVA  records  per  Interpretation) .  There  are 
no  screens  associated  with  this  step. 

Called  From 


CAMENINTER. 

Screen 


None. 

Logic 

Select  OLVA  records  for  current  interpretation. 
If  NODATA, 

go  to  CAINSOLVA. 

Else 

go  to  CASEL0LVA4. 

Validation 


None 
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Chapter  7.62:  CASEL0LVA4 

Purpose 

The  purpose  of  CASEL0LVA4  Is  Co  present  up  to  four  OTHER  LV 
ABNORMALITIES  (hereafter  referred  to  as  OLVA)  records  to  the  user. 
The  user  oay  either  select  an  existing  record  for  review  or 
aodlflcatlon,  choose  to  Insert  a  new  record,  or  exit  to  return  to 
the  Interpretations  menu. 

Called  From 

This  step  Is  entered  when  the  current  Interpretation  has  at  least 
one  OLVA  record  associated  with  It  In  the  data  base. 

Screen 

CASEL0LVA4 

Logic 

1.  Retrieve  up  to  four  OLVA  records,  number  screen  accordingly, 
and  display. 

2.  If  select  record  (SWI  for  select-olva  option  field)  • 

a)  ’O',  go  to  CAMENINTER. 

b)  *n',  where  n  ■  $DATASP,  go  to  CAMODOLVA. 

c)  'n',  where  1  ^  n  £  $DATASN,  rewind  the  OLVA  sibling 
chain  and  retrieve  the  nth  record  via  $S2KC0UNT.  Go  to 
CAMODOLVA. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSOLVA. 

Validation 


1.  Select-olva  option  field  -  mandatory,  numeric. 


r 
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Exhibit  7-49:  CASEL0LVA4  Screen  -  Select  4  OLVA  Records 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coronary  angiography  normal>  <total  X  narrowed> 


select  other  Iv  abnormalities 

other  Iv  abnormality 

1  _ 

2 

3 

4  _ 

0  none  of  the  above 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
olva  option  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs. 
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Chapter  7.63:  CAMODOLVA 

Purpose 

To  allow  the  user  to  aodlfy  an  existing  OLVA  record. 

Called  Froe 

CASEL0LVA4  when  the  user  selects  an  existing  OLVA  record  or 
CAINSOLVA  when  a  new  record  is  entered. 

Screen 

CAMODOLVA. 

Logic 

Display  screen. 

If  aodlfy  record(aodlfy-olva  option  field)  >  N, 
go  to  CAMENINTER. 

Else 

If  modify  record(modlfy-olva  option  field)  -  Y, 

Issue  a  modify  and  go  to  phase  1. 

Validation 


Modify  record  (SWI  for  modify-olva  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Other  Iv  abnormality  -  mandatory,  table(CAOLVATBL) , 

Input  on  COLl  edit  to  C0L2. 

CAOLVATBL: 

COLl  C0L2 

01  INCREASED  LEFT  VENTRICULAR  WALL  THICKNESS 
02  THICKENED  MITRAL  VALVE 

03  DECREASED  MOTION  MITRAL  VALVE 

04  BILLOWING  MITRAL  LEAFLET,  ANTERIOR  (PROLAPSE) 

05  BILLOWING  MITRAL  LEAFLET,  POSTERIOR  (PROLAPSE) 

06  MITRAL  REGURGITATION,  GRADE  I 

07  MITRAL  REGURGITATION,  GRADE  II 

08  MITRAL  REGURGITATION,  GRADE  III 

09  MITRAL  REGURGITATION,  GRADE  IV 

10  VENTRICULAR  SEPTAL  DEFECT 

11  CALCIUM,  MITRAL  VALVE 

12  CALCIUM,  MITRAL  ANNULUS 

13  INCREASED  LEFT  VENTRICULAR  SIZE 

14  OTHER 


•  ••••••• 
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Exhibit  7-50:  CAMODOLVA  Screen  -  Modify  OLVA  Records 

I 

I 

1  <S8an>  <naae>  <dob>  <sex> 

I  <type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patient> 

I  <readlng>  <lv  non>al>  <coroaary  angiography  nonBal>  <total  X  narrowed> 

I 

I 

I 

I 

I  modify  other  Iv  abnormalities  _ 

I 

1  other  Iv  abnormality 


1.  The  modify-olva  option  field  and  other  Iv  abnormality  field  are 
mandatory. 

2.  The  SWI  name  for  the  option  field  is  modify  record. 


Page  7-138 
Chapter  7.64 


Chapter  7.64:  CAINSOLVA 

Purpose 

To  allow  the  user  to  Insert  a  new  OLVA  record. 

Called  From 

This  step  is  called  from  CASELOLVA  when  no  OLVA  records  exist  for 
the  current  interpretation  or  from  CASEL0LVA4  when  the  user  chooses 
to  insert  a  new  OLVA  record. 

Screen 

CAINSOLVA. 

Logic 

Purge  SWIs  for  ocher  Iv  abnormality. 

Display  screen. 

If  insert  record  (SWI  for  insert-olva  option  field)  »  Y, 

Insert  OLVA  record  after; 
modify  LEFT  VETRICULOGRAPHY  NORMAL 

in  parent  INTERPRETATIONS  record  to  N;  (indicates  descendant) 
go  to  CAMODOLVA. 

If  insert  record  (SWI  for  insert-olva  option  field)  »  N, 
go  to  CAMENINTER. 

Validation 

Insert  record(SWI  for  insert-olva  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Other  Iv  abnormality  -  mandatory,  table(CAOLVATBL) , 

input  on  COLl  edit  to  C0L2. 

CAOLVATBL: 

COLl  C0L2 

01  INCREASED  LEFT  VENTRICULAR  WALL  THICKNESS 
02  THICKENED  MITRAL  VALVE 

03  DECREASED  MOTION  MITRAL  VALVE 

04  BILLOWING  MITRAL  LEAFLET,  ANTERIOR  (PROLAPSE) 

05  BILLOWING  MITRAL  LEAFLET,  POSTERIOR  (PROLAPSE) 

06  MITRAL  REGURGITATION,  GRADE  I 

07  MITRAL  REGURGITATION,  GRADE  II 

08  MITRAL  REGURGITATION,  GRADE  III 

09  MITRAL  REGURGITATION,  GRADE  IV 

10  VENTRICULAR  SEPTAL  DEFECT 

11  CALCIUM,  MITRAL  VALVE 

12  CALCIUM,  MITRAL  ANNULUS 

13  INCREASED  LEFT  VENTRICULAR  SIZE 

14  OTHER 
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Exhibit  7-51;  CAINSOLVA  Screen  —  Insert  OLVA  Records 


<ssan>  <name>  <dob>  <8ex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coronary  angiography  normal>  < total  %  narrowed> 

Insert  other  Iv  abnormalities 
other  Iv  abnormality 


1.  The  Insert-olva  option  field  and  other  Iv  abnormality  field  are 
mandatory. 

2.  The  SWI  name  for  the  option  field  Is  Insert  record. 


» 
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I 


» 


» 


I 


» 


I 


» 


» 


» 


> 
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Chapter  7.65:  CASELCOROC 
Purpose 

The  purpose  of  CASELCOROC  Is  to  first  determine  how  many  CORONARY 
CALCIFICATIONS  records  exist  In  the  CATHETER  data  base  for  the 
current  Interpretation.  If  there  are  no  CORONARY  CALCIFICATIONS 
records,  CAINSCOROC  Is  called;  If  there  are  any  CORONARY 
CALCIFICATIONS  records  for  the  current  Interpretation,  CASELC0R0C4 
Is  called  (there  will  never  be  more  than  4  CORONARY  CALCIFICATIONS 
records  per  Interpretation).  There  are  no  screens  associated  with 
this  step. 

Called  From 

CAMENINTER. 

Screen 

None. 

Logic 

Select  CORONARY  CALCIFICATIONS  records  for  current  Interpretation. 
If  NODATA, 

go  to  CAINSCOROC. 

Else 

go  to  CASELC0R0C4. 

Validation 

None. 
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Chapter  7.66:  CASELC0R0C4 
Purpose 


The  purpose  of  CASELC0R0C4  Is  to  present  up  to  four  CORONARY 
CALCIFICATIONS  records  to  the  user.  The  user  may  either  select  an 
existing  record  for  review  or  modification,  choose  to  Insert  a  new 
record,  or  exit  to  return  to  the  Interpretations  menu. 

Called  From 

This  step  Is  entered  when  the  current  Interpretation  has  at  least 
one  CORONARY  CALCIFICATIONS  record  associated  with  It  In  the  data 
base . 

Screen 


CASELC0R0C4 

Logic 


1.  Retrieve  up  to  four  CORONARY  CALCIFICATIONS  records,  number 
screen  accordingly,  and  display. 

2.  If  select  record(SWI  for  select-coronary-calclficatlons 
option  field)  ■ 

a)  ’O',  go  to  CAMENINTER. 

b)  'n',  where  n  -  $DATASP,  go  to  CAMODCOROC. 

c)  'n',  where  1  £  n  <  $DATASN,  rewind  the  CORONARY 
CALCIFICATIONS  sibling  chain  and  retrieve  the  nth  record 
via  $S2KC0UNT.  Go  to  CAHODCOROC. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSCOROC. 

Validation 


1.  Select-coronary-calclficatlons  option  field 
numeric. 


mandatory. 
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I 


I 

Exhibit  7-52:  CASBLC0R0C4  Screen  -  Select  4  COBOHARY  CALCIFICATIONS 


» 


<ssan>  <nane>  <dob>  <8ex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coronary  angiography  nonnal>  <total  Z  narrowed> 


select  coronary  calcifications 

coronary  calcification  site 

1  _ _ 

2 

3 

4  _ 

0  none  of  the  above 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
coronary-calclflcatlons  option  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


La 


•  •  • 
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Chapter  7.67:  CAMODCOIOC 
Purpose 

To  allow  the  user  to  modify  an  existing  CORONARY  CALCIFICATIONS 
record. 

Called  From 

CASELC0R0C4  when  the  user  selects  an  existing  CORONARY 
CALCIFICATIONS  record  or  CAINSCOROC  when  a  new  record  Is  entered. 

Screen 


» 


» 


CAMODCOROC. 

Logic 

I 

Display  screen. 

If  modify  record(modify-coronary-calciflcations  option  field)  ■  N, 
go  to  CAMENINTER. 

Else 

If  modify  record(modify-coronary-calclflcatlon8  option  field)  -  Y, 

Issue  a  modify  and  go  to  phase  1.  ^ 

Validation 


Modify  record  (SWI  for  modlfy-coronary-calcif Icatlons  option  field) 

-mandatory,  table  (YESNOTBL,  exists). 


Coronary  calcification  site 


-  mandatory,  table  (CACOSITETBL- 


AO  E  J2 

A  F  K 

B  G  L 

C  H  M 

Dl  I  N 

D2  J1  0 


P 

Q1 

Q2 

R 

S 

T 


» 


» 


» 


» 


» 


•  ••••• 
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Exhibit  7-53:  CAMODCOSOC  Screen  -  Modify  COROMAKY  CALCIFICATIOHS 


‘  - - 

I  I 

i  I 

I  <ssan>  <name>  <dob>  <sex>  | 

!  <type>  <case  #>  <doe>  <cath  no>  <no.  for  patient>  | 

I  <reading>  <lv  normal>  <coronary  angiography  noraal>  <total  Z  narrowed>  | 


modify  coronary  calcifications 
coronary  calcification  site 


I 


1.  The  modify-coronary-calcifications  option  field  and  coronary 
calcification  site  field  are  mandatory. 

2.  The  SWT  name  for  the  option  field  is  modify  record. 
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Chapter  7.68:  CAINSCOIOC 
Purpose 


To  allow  the  user  to  Insert  a  new  CORONARY  CALCIFICATIONS  record. 
Called  Froe 

This  step  Is  called  from  CASELCOROC  when  no  CORONARY  CALCIFICATIONS 
records  exist  for  the  current  Interpretation  or  from  CASELC0R0C4 
when  the  user  chooses  to  Insert  a  new  CORONARY  CALCIFICATIONS 
record . 

Screen 


CAINSCOROC. 

Logic 

Purge  SWIs  for  coronary  calcification  site. 

Display  screen. 

If  Insert  record(SWI  for  insert-coronary-calclflcations  option  fleld)'»Y, 
Insert  CORONARY  CALCIFICATIONS  record  after; 
modify  CORONARY  CALCIFICATION 

in  parent  INTERPRETATIONS  record  to  Y;  (Indicates  descendant) 
go  to  CAMODCOROC. 

If  insert  irecord(SWI  for  insert-coronary-calclflcations  option  fleld)»N, 
go  to  CAMENINTER. 

Validation 


Insert  record(SWI  for  Insert-coronary-calclflcations  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 


Coronary  calcification  site 


-  mandatory, 
AO  E 

A  F 

B  G 

C  H 

D1  I 

D2  J1 


table  (CACOSITETBL- 
J2  P  U 

K  Q1  1 

L  Q2  2 

M  R  3 

N  S  4 


» 


» 


» 


» 


> 


» 


» 


» 


» 
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Exhibit  7-54:  CAINSCOBOC  Screen  -  Insert  COROMARY  CALCIFICATION 


Ar 


I  <S8an>  <name>  <dob>  <sex> 

j  <type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 
j  <readlng>  <lv  normal>  <coronary  angiography  normal>  <total  %  narrowed> 

I  Insert  coronary  calcifications  _ 
i  coronary  calcification  site 


1.  The  insert-coronary-calcifications  option  field  and  coronary 
calcification  site  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  Is  insert  record. 


•  • 


•  • 


•  I 
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Chapter  7.69:  CASELMTOCB 
Purpose 


» 


Ar 


The  purpose  of  CASELMTOCB  Is  to  first  detenalne  how  many  MTOCAROIAL 
BRIDGES  records  exist  In  the  CATHETER  data  base  for  the  current 
Interpretation.  If  there  are  no  MYOCARDIAL  BRIDGES  records, 
CAINSMYOCB  Is  called;  If  there  are  any  MYOCARDIAL  BRIDGES  records 
for  the  current  Interpretation,  CASELMY0CB4  Is  called  (there  will 
never  be  more  than  4  MYOCARDIAL  BRIDGES  records  per 
Interpretation).  There  are  no  screens  associated  with  this  step. 

Called  From 

CAMENINTER. 

Screen 


None . 
Logic 


I 


I 


Select  MYOCARDIAL  BRIDGES  records  for  current  interpretation. 
•  If  NODATA, 

go  to  CAINSMYOCB. 

Else 

go  to  CASELMY0CB4. 

Validation 
None . 


» 


» 


» 


> 


•  •  •  •  •  9  •  • 
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'5> 


Chapter  7.70:  CASELMTOCB4 
Purpose 

The  purpose  of  CASELMY0CB4  Is  to  present  up  to  four  MYOCARDIAL 
BRIDGES  records  to  the  user.  The  user  may  either  select  an 
existing  record  for  review  or  modification,  choose  to  Insert  a  new 
record,  or  exit  to  return  to  the  Interpretations  menu. 

Called  From 


This  step  Is  entered  when  the  current  Interpretation  has  at  least 
one  MYOCARDIAL  BRIDGES  record  associated  with  It  In  the  data  base. 

Screen 


CASELMY0CB4 

Logic 


1.  Retrieve  up  to  four  MYOCARDIAL  BRIDGES  records,  number 
screen  accordingly,  and  display. 

2.  If  select  record  (SWI  for  select-myocardlal-bridges  option 
field)  - 

a)  '0*,  go  to  CAMENINTER. 

b)  'n',  where  n  «  $DATASP,  go  to  CAMODMYOCB. 

c)  *n' ,  where  1  £  $DATASN,  rewind  the  MYOCARDIAL 

BRIDGES  sibling  chain  and  retrieve  the  nth  record  via 
$S2KC0UNT.  Go  to  CAMODMYOCB. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSMYOCB. 

Validation 


» 


w 


4r 


I 


» 


I 


» 


» 


1.  Select-myocardlal-bridges  option  field  -  mandatory,  numeric. 


» 


» 


> 


•  •  • 


•  « 
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✓ 


Exhibit  7-55:  CASELMY0CB4  Screen  -  Select  4  HTOCAtDlAL  BRIDGES 


<ssan>  <name>  <dob>  <sex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coronary  angiography  aoriiial>  <total  Z  narrowed> 


select  myocardial  bridges 
myocardial  bridge  site 

1 

2 

3 

4 


0  none  of  the  above 


I 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
myocardlal-brldges  option  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 
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Chapter  7.71:  CAMODHYOCB 

Purpose 

To  allow  the  user  to  modify  an  existing  MYOCARDIAL  BRIDGES  record. 
Called  From 


CASELMY0CB4  when  the  user  selects  an  existing  MYOCARDIAL  BRIDGES 
record  or  CAINSMYOCB  when  a  new  record  Is  entered. 

Screen 


CAMODMYOCB. 


Logie 

Display  screen. 

If  modify  record(modify-myocardial-brldges  option  field)  *  N, 
go  to  CAMENINTER. 

Else 

If  modify  record(modify-myocardial-bridges  option  field)  »  Y, 
Issue  a  modify  and  go  to  phase  1. 

Validation 


Modify  record  (SWI  for  modify-myocardial-bridges  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 


Myocardial  bridge  site 


-  mandatory, 
AO  E 

A  F 

B  G 

C  H 

D1  I 

D2  J1 


table  (CACOSITETBL- 
J2  P  U 

K  Q1  1 

L  Q2  2 

M  R  3 

N  S  4 


I 


I 


*) 


Jtr 


» 


I 


» 


► 


» 


I 


•  •  • 


•  •  • 


•  • 


✓ 

V 
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Exhibit  7-56:  CAMODMYOCB  Screen  -  Modify  MYOCARDIAL  BRIDGES 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <ao.  for  patlent> 

<reading>  <lv  normal>  <coronary  angiography  normal>  <total  %  narrowed> 


modify  myocardia  bridges 
myocardial  bridge  site 


1.  The  modi fy-myocardial-bridges  option  field  and  myocardial  bridge 
site  field  are  'andatory. 

2.  The  SWI  name  for  the  option  field  is  modify  record. 


•  • 


•  ••••• 
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Chapter  7.72:  CAINSHYOCB 

Purpose 


I 


To  allow  the  user  to  Insert  a  new  MYOCARDIAL  BRIDGES  record. 

Called  From 

This  step  is  called  from  CASELMYOCB  when  no  MYOCARDIAL  BRIDGES 

exist  for  the  current  Interpretation  or  from  CASELMY0CB4  when  the 

user  chooses  to  insert  a  new  MYOCARDIAL  BRIDGES  record. 

Screen 

CAINSMYOCB. 

Logic 

Purge  SWIs  for  myocardial  bridge  site. 

Display  screen. 

If  Insert  record  (SWI  for  insert-myocardial-bridges  option  field)  «  Y, 
insert  MYOCARDIAL  BRIDGES  record  after; 
modify  MYOCARDIAL  BRIDGE 

in  parent  INTERPRETATIONS  record  to  Y;  (Indicates  descendant) 
go  to  CAMODMYOCB. 

If  Insert  record  (SWI  for  Insert-myocardial-bridges  option  field)  ■  N, 
go  to  CAMENINTER. 

Validation 


» 


» 


I 


» 


Insert  record(SWI  for  Insert-myocardlal-bridges  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 


Myocardial  bridge  site 


-  mandatory, 
AO  E 

A  F 

B  G 

C  H 

D1  I 

D2  J1 


table  (CACOSITETBL- 
J2  P  U 

K  Q1  1 

L  Q2  2 

M  R  3 

N  S  4 


» 


I 


» 


I 


•  • 


•  • 


f 
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Exhibit  7-57;  CAINSNYOCB  Screen  -  Insert  MYOCABDIAL  BRIDGES 


<ssan>  <name>  <dob>  <8ex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patient> 

<reading>  <lv  nonnal>  <coronary  angiography  noraial>  <total  %  narrowed> 


Insert  myocardial  bridges 
myocardial  bridge  site 


» 


I 


1.  The  insert-myocardial-bridges  option  field  and  myocardial  bridge 
site  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  is  insert  record. 


» 


» 


•  • 
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Chapter  7.73:  CASELCOROS 
Purpose 

The  purpose  of  CASELCOROS  is  to  first  determlae  how  many  CORONARY 
SPASMS  records  exist  In  the  CATHETER  data  base  for  the  current 
Interpretation.  If  there  are  no  CX)RONARY  SPASMS  records, 
CAINSCOROS  Is  called;  If  there  aie  any  CORONARY  SPASMS  records  for 
the  current  Interpretation,  CASELC0R0S4  is  called  (there  will  never 
be  more  than  4  CORONARY  SPASMS  records  per  Interpretation) .  There 
are  no  screens  associated  with  this  step. 

Called  From 


CAMENINTER. 

Screen 

None. 

Logic 

Select  CORONARY  SPASMS  records  for  current  interpretation. 
If  NODATA, 

go  to  CAINSCOROS. 

Else 

go  to  CASELC0R0S4. 


Validation 

None. 
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Chapter  7.74:  CASBLC0R0S4 

Purpose 

The  purpose  of  CASELC0R0S4  Is  to  present  up  to  four  CORONARY  SPASMS 
records  to  the  user.  The  user  may  either  select  an  existing  record 
for  review  or  modification,  choose  to  Insert  a  new  record,  or  exit 
to  return  to  the  Interpretations  menu. 

Called  From 

This  step  Is  entered  when  the  current  Interpretation  has  at  least 
one  CORONARY  SPASMS  record  associated  with  It  In  the  data  base. 

Screen 


CASELC0R0S4 

Logic 

1.  Retrieve  up  to  four  CORONARY  SPASMS  records,  number  screen 
accordingly,  and  display. 

2.  If  select  record  (SWI  for  select-coronary-spasms  option 
field)  - 

a)  'O',  go  to  CAMENINTER. 

b)  'n',  where  n  «  $DATASP,  go  to  CAMODCOROS. 

c)  'n',  where  1  <  n  <  $DATASN,  rewind  the  CORONARY  SPASMS 
sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  CAMODCOROS. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSCOROS. 

Validation 

1.  Select-coronary-spasms  option  field  -  mandatory,  numeric. 


Page  7-159 
Chapter  7.74 


Exhibit  7-58:  CASBLC0R0S4  Screen  -  Select  4  COROHARY  SPASMS 


<ssan>  <name>  <dob>  <8ex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patient> 

<reading>  <lv  noroal>  <coronary  angiography  normal>  <total  %  narrowed> 


select  coronary  apasms 
coronary  spasm  site 

1 

2 

3 

4  _ 

0  none  of  the  above 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
coronary-spasms  option  field. 

2.  The  SWI  name  for  the  option  field  is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs. 
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Chapter  7.75:  CAMODCOBOS 
Purpose 


To  allow  the  user  to  modify  an  existing  CORONARY  SPASMS  record. 
Called  From 

CASELCOROS4  when  the  user  selects  an  existing  CORONARY  SPASMS 
record  or  CAINSCOROS  when  a  new  record  Is  entered. 


Screen 

CAMODCOROS. 

Logic 

Display  screen. 

If  modify  record(modify-coronary-spasms  optloi.  field)  ■  N, 
go  to  CAMENINTER. 

Else 

If  modify  record(modlfy-coronary-spasms  option  field)  ■  Y, 
Issue  a  modify  and  go  to  phase  1. 


Validation 

Modify  record  (SWI  for  modlfy-coronary-spasms  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 


Coronary  spasm  site 


-  mandatory, 
AO  E 

A  F 

B  G 

C  H 

D1  I 

D2  J1 


table  (CACOSITETBL- 
J2  P  U 

K  Q1  1 

L  Q2  2 

M  R  3 

N  S  4 


•  •  • 
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Exhibit  7-59:  CAMODCOROS  Screen  -  Modify  COROMART  SPASMS 


<ssan>  <name>  <dob>  <sex> 

<type>  <caae  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coronary  angiography  nonnal>  <total  X  narrowed> 


modify  coronary  spasms 
coronary  spasm  site 


1.  The  modlfy-coronary-spasms  option  field  and  coronary  spasm  site 
field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  Is  modify  record. 


i 
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Chapter  7.76:  CAIMSCOROS 
Purpose 

To  allow  the  user  to  insert  a  new  CORONARY  SPASMS  record. 

Called  From 

This  step  Is  called  from  CASELCOROS  <^en  no  CORONARY  SPASMS  records 
exist  for  the  current  interpretation  or  from  CASELCOROS4  when  the 
user  chooses  to  insert  a  new  CORONARY  SPASMS  record. 

Screen 

CAINSCOROS. 

Logic 

Purge  SWIs  for  coronary  spasm  site. 

Display  screen. 

If  Insert  record  (SWI  for  Insert-coronary-spasms  option  field)  •  Y, 
Insert  CORONARY  SPASMS  record  after; 
modify  CORONARY  SPASM 

in  parent  INTERPRETATIONS  record  to  Y;  (Indicates  abnormal) 
go  to  CAMODCOROS. 

If  insert  record  (SWI  for  Insert-coronary-spasms  option  field)  ■  N, 
go  to  CAMENINTER. 

Validation 

Insert  record(SWI  for  Insert-coronary-spasms  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Coronary  spasm  site  -  mandatory,  table  (CACOSITETBL- 

AO  E  J2  P  U 

A  F  K  Q1  1 

B  G  L  Q2  2 

C  H  M  R  3 

D1  I  N  S  4 

D2  J1  0  T  5  ). 


I 


» 


» 


» 


» 


» 


» 
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V 


Exhibit  7-60:  CAINSCOBOS  Screen  -  Insert  CORONARY  SPASMS 


<8san>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patient> 

<readlng>  <lv  nomial>  <coronary  angiography  normal>  <total  X  narrowed> 

Insert  coronary  spasms  _ 
coronary  spasm  site 


1.  The  Insert-coronary-spasms  option  field  and  coronary  spasm  site 
field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  is  Insert  record. 


•  • 


•  •  • 


•  • 


I 
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I 


I 


» 


» 


> 


» 


» 
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Clw  .ter  7.77;  CASELCOROP 
Purpose 

The  purpose  of  CASELCOROP  is  to  first  determine  how  many  CORONARY 
PLAQUES  records  exist  in  the  CATHETER  data  base  for  the  current 
interpretation.  If  there  are  no  CORONARY  PLAQUES  records, 
CAINSCOROP  is  called;  If  there  between  1  and  4  (inclusive)  CORONARY 
PLAQUES  records  for  the  current  interpretation,  CASELC0R0P4  is 
called;  if  there  are  more  chan  4  CORONARY  PLAQUES  records, 
CASELC0R0P14  is  called.  There  are  no  screens  associated  with  this 
step. 

Called  From 
CAMENINTER. 

Screen 

None. 

Logic 

®  Select  CORONARY  PLAQUES  records  for  current  interpretation. 

If  NODATA, 

go  to  CAINSCOROP. 

If  0  <  $DATASN<4, 
go  to  CASELC0R0P4. 

If  $DATASN  >  4, 

go  to  CASELC0R0P14. 

Validation 


I 


I 


I 


I 


None. 


'  c 
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Chapter  7.78:  CASBLC080P4 

Purpose 

The  purpose  of  CASELCOROP^t  is  to  present  up  to  four  CORONARY 
PLAQtJES  records  to  the  user.  The  user  may  either  select  an 
existing  record  for  review  or  modification,  choose  to  Insert  a  new 
record,  or  exit  to  return  to  the  Interpretations  menu. 

Called  From 


This  step  is  entered  when  the  current  interpretation  has  between  1 
and  4  (inclusive)  CORONARY  PLAQUES  records  associated  with  it  in 
the  data  base. 

Screen 


CASELC0R0P4 

Logic 

1.  Retrieve  up  to  four  CORO'’ARY  PLAQUES  records,  number  screen 
accordingly,  and  display. 

2.  If  select  record  (SWI  for  select-coronary-plaques  option 
field)  - 

a)  ’O',  go  to  CAMENINTER. 

b)  'n',  where  n  «  $DATASP,  go  to  CAMODCOROP. 

c)  'n',  where  1  _<  n  _<  $DATASN,  rewind  the  CORONARY  PLAQUES 
sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  CAMODCOROP. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSCOROP. 

Validation 

1.  Select-coronary-plaques  option  field  -  mandatory,  numeric. 
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Exhibit  7-61:  CASELCOftOP4  Screen  -  Select  4  COROHARY  PLAQUES 


<sse'i>  <name>  <dob>  <sex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  aormal>  <coronary  angiography  normal>  <toCal  %  narrowed> 


select  coronary  plaques 
coronary  plaque  site 

1 

2 

3 

4 


none  of  the  above 


pet  diameter 
narrowed 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
coronary-plaques  ~ption  field. 

2.  The  SWI  name  for  the  option  field  is  select  record. 

3.  The  numbers  on  the  '’eft  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  a^'e  only  displayed  when  a  record  of  that  number 
occurs . 
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Chapter  7.79:  CASELC0S0P14 
Purpose 

The  purpose  of  CASELCOROP14  is  to  present  up  to  fourteen  CORONARY 
PLAQUES  records  to  the  user.  The  user  may  either  select  an 
existing  record  for  review  or  modification,  choose  to  insert  a  new 
record,  or  exit  to  return  to  the  Interpretations  menu. 

Called  From 


This  step  is  entered  when  the  current  Interpretation  has  more  than 
four  CORONARY  PLAQUES  records  associated  with  it  in  the  data  base. 

Screen 


CASELC0R0P14 

Logic 

1.  Retrieve  up  to  fourteen  CORONARY  PLAQUES  records,  number 
screen  accordingly,  and  display. 

2.  If  'select  record'  (SWI  for  select-coronary-plaques  option 
field)  ■ 

a)  'O',  go  to  CAMENINTER. 

b)  'n',  where  n  =•  $DATASP,  go  to  CAMODCOROP. 

c)  'n',  where  1  £  n^  $DATASN,  rewind  the  CORONARY  PLAQUES 
sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  CAMODCOROP. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSCOROP. 

Validation 

1.  Select-coronary-plaques  option  field  (SWI  is  select  record) 

-  mandatory,  numeric. 
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Exhibit  7-62:  CASELCOK0P14  Screen  -  Select  14  COROHAET  PLAQUES 


<8san>  <naiae>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patleutV 
<readlng>  <lv  normal>  <coroaary  angiography  normal>  <total  X  narrowed> 


select  coronary  plaques  _ 
coronary  plaque  site 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11  _ 

12 

13  _ 

14  _ 

0  none  of  the  above 


pet  diameter 
narrowed 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
coronary-plaques  option  field. 

2.  The  SWI  name  for  the  option  L'ield  is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWls  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs. 


f 
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Chapter  7.80:  CAMOOCOKOP 
Purpose 


To  allow  the  user  to  modify  an  existing  CORONARY  PLAQUES  record. 
Called  Proa 

CASELC0R0P4  or  CASELC0R0P14  when  the  user  selects  an  existing 
CORONARY  PLAQUES  record  or  CAINSCOROP  when  a  new  record  Is  entered. 

Screen 


CAMODCOROP . 

Logic 

Save  data  base  value  of  pet  diameter  narrowed  In  SAVEPDN. 

Display  screen. 

If  modify  record(modlfy-coronary-plaques  option  field)  >  N, 
go  to  CAMENINTER. 

Else 

If  modify  record(modlfy-coronary-plaques  option  field)  *  Y, 

Issue  a  modify  of  CORONARY  PLAQUES  record; 

If  new  pet  diameter  narrowed  (SWIPDN)  ^  SAVEPDN, 
retrieve  parent  INTERPRETATIONS  record; 
subtract  SAVEPDN  from  SWIPDN; 

add  the  result  (SWIPDN  -  SAVEPDN)  to  SWI  for  TOTAL  PCT  NARROWED; 

If  SWI  for  TOTAL  PCT  NARROWED  -  0, 

modify  DBI  for  TOTAL  PCT  NARROWED  to  null; 

Else 

modify  DBI  for  TOTAL  PCT  NARROWED  to  SWI  for  TOTAL  PCT  NARROWOWED 
go  to  phase  1. 

Validation 


Modify  record  (SWI  for  modify-coronary-plaques  option  field) 


-  mandatory,  table 

(YESNOTBL, 

exists) . 

Coronary  plaque  site 

-  mandatory,  table 

(CACOSITETBL- 

AO 

E  J2 

P 

U 

A 

F  K 

Q1 

1 

B 

G  L 

Q2 

2 

C 

H  M 

R 

3 

D1 

I  N 

S 

4 

D2 

J1  0 

T 

5  ). 

Pet  diameter  narrowed 

-  mandatory,  numeric  range  (0-100). 
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Exhibit  7-63:  CAMODCOBOF  Screen  -  Modify  COKONAKY  PLAQUES 


<8san>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlenc> 

<readlng>  <lv  normal>  <coroaary  angiography  nonBal>  <total  Z  narroved> 


modify  coronary  plaques  _ 

pet  dlametei 

coronary  plaque  site  narrowed 


1.  The  modlfy-coronary-plaques  option  field,  coronary  plaque  site 
field,  and  the  pet  diameter  narrowed  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  Is  modify  record. 


f 
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Chapter  7.81:  CAIMSCOlOP 
Purpose 

To  allow  the  user  to  Insert  a  new  CORONARY  PLAQUES  record. 

Called  Prom 

This  step  is  called  from  CASELCOROP  when  no  CORONARY  PLAQUES 
records  exist  for  the  current  interpretation  or  from  CASELC0R0P4  or 
CASELC0R0P14  when  the  user  chooses  to  insert  a  new  CORONARY  PLAQUES 
record. 

Screen 

CAINSCOROP. 


Logic 

Purge  SWIs  for  coronary  plaque  site  and  pet  diameter  narrowed. 
Display  screen. 


If 


If 


insert  record  (SWI  for  insert-coronary-plaques  option  field)  <• 
insert  CORONARY  PLAQUES  record  after; 
retrieve  parent  INTERPRETATIONS  record; 

modify  CORONARY  ANGIOGRAPHY  NORMAL  to  N;  (indicates  abnormal) 
DBI  for  TOTAL  PCT  NARROWED  is  null, 
initialize  DBI  for  TOTAL  PCT  NARROWED  to  zero. 


add  pet  diameter  narrowed  (input)  to  SWI  for  TOTAL  PCT  NARROWED 
modify  TOTAL  PCT  NARROWED  in  INTERPRETATIONS  record; 
go  to  CAMODCOROP. 


If  Insert  record  (SWI  for  insert-coronary-plaques  option  field)  -  N 
go  to  CAMENINTER. 


Validation 

Insert  record(SWI  for  Insert-coronary-plaques  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 


Coronary  plaque  site 


-  mandatory. 

table 

(CACOSITETBL- 

- 

AO 

E 

J2 

P 

U 

A 

F 

K 

Ql 

1 

B 

G 

L 

Q2 

2 

C 

H 

M 

R 

3 

D1 

I 

N 

S 

4 

D2 

J1 

0 

T 

5  ). 

Pet  diameter  narrowed 


-  mandatory,  numeric  range  (0-100). 
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Exhibit  7-64:  CA.INSOOBOP  Screeo  -  Insert  COaCMART  PLAQUES 


<ssan>  <name>  <dob>  <aex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlag>  <lv  noraal>  <coronary  angiography  noriBal>  <total  X  narrowed> 


Insert  coronary  plaques  _ 

pet  diameter 

coronary  plaque  site  narrowed 


^ - y 


1.  The  Insert-coronary-plaques  option  field,  coronary  plaque  site, 
and  pet  diameter  narrowed  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  Is  insert  record. 
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CliapCer  7  *82*  CASELCOUj 
Purpose 

The  purpose  of  CASELCCLL  is  to  first  determine  how  laany  COLLATERALS 
records  exist  in  the  CATHETER  data  base  for  the  current 
Interpretation.  If  there  are  no  COLLATERALS  records,  CAINSCOLL  is 
called;  If  there  between  1  and  4  (inclusive)  COLLATERALS  records 
for  the  current  Interpretation,  CASELC0LL4  is  called;  if  there  are 
more  than  4  COLLATERALS  records,  CASELC0LL14  is  called.  There  are 
no  screens  associated  with  this  step. 

Called  From 


i 


» 


I 


CAMENINTER. 
Screen 
None . 


Logic 


Select  COLLATERALS  records  for  current  interpretation. 

If  NODATA, 

go  to  CAINSCOLL. 

If  0  <  $DATASN  <  4 , 
go  to  CASELC0LL4. 

If  $DATASN  >  4, 

go  to  CASELC0LL14. 

Validation 


None. 


•  •  • 


•  • 


t 
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Chapter  7.83:  CASELC0LL4 
Purpose 

The  purpose  of  CASELC0LL4  Is  to  present  up  to  four  COLLATERALS 

records  to  the  user.  The  user  aay  either  select  an  existing  record  * 

for  review  or  modification,  choose  to  insert  a  new  record,  or  exit 
to  return  to  the  Interpretations  menu. 

Called  Proa 

This  step  is  entered  when  the  current  interpretation  has  between  1  * 

and  4  (inclusive)  COLLATERALS  records  associated  with  it  in  the 
data  base. 

Screen 


CASELC0LL4 

Logic 

1.  Retrieve  up  to  four  COLLATERALS  records,  number  screen 
accordingly,  and  display. 

2.  If  select  record  (SUl  for  select-collaterals  option  field)  > 

a)  'O',  go  to  CAMENINTER. 

b)  *n’,  where  n  -  $DATASP,  go  to  CAMODCOLL. 

c)  'n',  where  1  <  n<  $DATASN,  rewind  the  COLLATERALS 
sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  CAMODCOLL. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSCOLL. 

Validation 

1.  Select-collaterals  option  field  -  mandatory,  numeric. 


» 


I 


» 


I 


•  • 
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Exhibit  7-65:  CASELC0LL4  Screen  -  Select  4  COLLATERALS 


<ssan>  <na]Be>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patient> 

<reading>  <lv  noraial>  <coroaary  angiography  noraal>  <total  X  narrowed> 


select  collaterals  _ 

collateral  origin  anastomosis 

1  _  _ 

2  _  _ 

3  _  _ 

4  _  _ 

0  none  of  the  above 


segment  filled 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
collaterals  option  field. 

2.  The  SWI  name  for  the  option  field  is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs. 


f 
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Chapter  7.84:  CASELC0LL14 

Purpose 

The  purpose  of  CASELC0LL14  Is  to  present  up  to  fourteen  COLLATERALS 
records  to  the  user.  The  user  may  either  select  an  existing  record 
for  review  or  aodlf Icatlon,  choose  to  Insert  a  new  record,  or  exit 
to  return  to  the  interpretations  menu. 

Called  Prom 

This  step  is  entered  when  the  current  interpretation  has  more  than 
four  COLLATERALS  records  associated  with  it  in  the  data  base. 

Screen 

CASELC0LL14 

Logic 

1.  Retrieve  up  to  fourteen  COLLATERALS  records,  number  screen 
accordingly,  and  display. 

2.  If  'select  record*  (SWI  for  select-collaterals  option  field) 

a)  'O',  go  to  CAMENINTER. 

b)  'n*,  where  n  «  $DATASP,  go  to  CAMODCOLL. 

c)  'n',  where  n£  $DATASN,  rewind  the  COLLATERALS 

sibling  chain  and  retrieve  the  nth  record  via  $S2KC0UNT. 
Go  to  CAl'ioDCOLL. 

d)  'n' ,  where  n  >  $DATASN,  go  to  CAINSCOLL. 

Validation 

1.  Select-collaterals  option  field  (SWI  is  select  record) 

-  mandatory,  numeric. 
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Exhibit  7-66:  CASELC0LL14  Screen  -  Select  14  COLLATBKALS 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coronary  angiography  nornal>  <total  X  narrowed> 


select  collaterals  _ 

collateral  origin 
1  _ 

2  _ 

3  _ 

4  _ 

5  _ 

6  _ 

7  _ 

8  _ 

9 

10  _ 

11  _ 

12  _ 

13  _ 

14  _ 

0  none  of  the  above 


anastomosis 


segment  filled 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
collaterals  option  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


c 


Page  7-180 
Chapter  7 .85 


Chapter  7.85:  CAMODCOLL 

Purpose 

To  allow  the  user  to  modify  an  existing  COLLATERALS  record. 

Called  Proa 

CASELC0LL4  or  CASELC0LL14  when  the  user  selects  an  existing 

COLLATERALS  record  or  CAINSCOLL  when  a  new  record  Is  entered. 

Screen 

CAMODCOLL . 

Logic 

Display  screen. 

If  modify  record(modlfy-collaterals  option  field)  »  N, 
go  to  CAMENINTER. 

Else 

If  modify  record(modlfy-collaterals  option  field)  •  Y, 

Issue  a  modify  and  go  to  phase  1. 

Validation 

Modify  record  (SWI  for  modlfy-collaterals 

-  mandatory. 

Collateral  origin  -  mandatory, 

AO  E 

A  F 

B  G 

C  H 

D1  I 

D2  J1 

Anastomosis  -  mandatory, 

AO  E 

A  F 

B  G 

C  H 

D1  I 

D2  J1 

Segment  filled  -  mandatory, 

AO  E 

A  F 

B  G 

C  H 

D1  I 

D2  J1 


option  field) 

table  (YESNOTBL,  exists). 

table  (CACOSITETBL- 
J2  P  U 

K  Q1  1 

L  Q2  2 

M  R  3 

N  S  4 

0  T  5  ). 

table  (CACOSITETBL- 
J2  P  U 

K  Q1  1 

L  Q2  2 

M  R  3 

N  S  4 

0  T  5  ). 

table  (CACOSITETBL- 
J2  P  U 

K  Q1  1 

L  Q2  2 

M  R  3 

N  S  4 

0  T  5  ). 


•  ••••••• 
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Exhibit  7-67:  CAHODCOLL  Screen  -  Modify  COLLATERALS 


<ssan>  <name>  <dob>  <8ex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coronary  angiography  normal>  <total  Z  narrowed> 


modify  collaterala  _ 

collateral  origin  anaatomoala  aegment  filled 


1.  The  modlfy-collaterals  option  field,  collateral  origin  field, 
ana8tomosl8  field,  and  aegment  filled  field  are  mandatory. 


2.  The  SWI  name  for  the  option  field  la  modify  record. 
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Chapter  7.86:  CAINSCOLL 
Purpose 

To  allow  the  user  to  Insert  a  new  COLLATERALS  record. 

Called  From 

This  step  Is  called  from  CASELCOLL  when  no  COLLATERALS  records 
exist  for  the  current  interpretation  or  from  CASELC0LL4  or 
CASELC0LL14  when  the  user  chooses  to  Insert  a  new  COLLATERALS 
record. 

Screen 
CAINSCOLL . 

Logic 

Purge  SWIs  for  collateral  origin,  anastomosis,  and  segment  filled. 
Display  screen. 


If  Insert  record  (SWl 

for 

insert-collaterals  option  field)  =» 

Y, 

Insert  COLLATERALS  record  after; 

modify  COLLATERAL 

PRESENT 

in  parent  INTERPRETATIONS  record 

to  Y;  (indicates  descendant 

COLLATERALS  i 

record) 

go  to  CAMODCOLL. 

If  insert  record  (SWI 

for 

insert-collaterals  option  field)  =» 

N, 

go  to  CAMENINTER. 

Validation 

Insert  record(SWI  for 

insert-collatc 

rals  option 

field) 

-  mandatory. 

table 

(YESNOTBL,  exists). 

Collateral  origin 

-  mandatory. 

table 

(CACOSITETBL- 

. 

AO 

E 

J2 

P 

U 

A 

F 

K 

Q1 

1 

B 

G 

L 

Q2 

2 

C 

H 

M 

R 

3 

D1 

I 

N 

S 

4 

D2 

J1 

0 

T 

5  ). 

Anastomosis 

-  mandatory. 

table 

(CACOSITETBL- 

- 

AO 

E 

J2 

P 

U 

A 

F 

K 

Q1 

1 

B 

G 

L 

Q2 

2 

C 

H 

M 

R 

3 

D1 

I 

N 

S 

4 

D2 

J1 

0 

T 

5  ). 

Segment  filled 

-  mandatory. 

table 

(CACOSITETBL- 

- 

AO 

E 

J2 

P 

U 

A 

F 

K 

Q1 

1 

B 

G 

L 

Q2 

2 

C 

H 

M 

R 

3 

D1 

I 

N 

S 

4 

D2 

J1 

0 

T 

5  ). 

•  • 


•  • 


» 


» 


I 


» 


I 


» 


> 


» 


» 
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Exhibit  7-68:  CAINSCOLL  Screen  -  Insert  COLLATERALS 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coronary  angiography  normal>  <total  X  narrowed> 


Insert  collaterals  _ 

collateral  origin  anastomosis  segment  filled 


1.  The  Insert-collaterals  option  field,  collateral  origin  field, 
anastomosis  field,  and  segment  filled  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  Is  Insert  record. 
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Chapter  7.87:  CASELCOROA 

Purpose 

The  purpose  of  CASELCOROA  Is  to  first  deterulne  how  many  CORONARY 
ANOMALIES  records  exist  In  the  CATHETER  data  base  for  the  current 
Interpretation.  If  there  are  no  CORONARY  ANOMALIES  records, 
CAINSCOROA  Is  called;  If  there  are  any  CORONARY  ANOMALIES  records 
for  the  current  Interpretation,  CASELC0R0A4  Is  called  (there  will 
never  be  more  than  4  CORONARY  ANOMALIES  records  per 
lnterpi.etatlon) .  There  are  no  screens  associated  with  this  step. 

Called  From 

CAMENINTER. 

Screen 

None. 

Logic 

Select  CORONARY  ANOMALIES  records  for  current  interpretation. 

If  NODATA, 

go  to  CAINSCOROA. 

Else 

go  to  CASELC0R0A4. 

Validation 

None. 
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Chapter  7.88:  CASELC0R0A4 

Purpose 


The  purpose  of  CASELC0R0A4  is  to  present  up  to  four  CORONARY 
ANOMALIES  records  to  the  user.  The  user  may  either  select  an 
existing  record  for  review  or  modification,  choose  to  Insert  a  new 
record,  or  exit  to  return  to  the  Interpretations  menu. 

Called  From 


This  step  Is  entered  when  the  current  Interpretation  has  at  least 
one  CORONARY  ANOMALIES  record  associated  with  it  in  the  data  base. 

Screen 


CASELC0R0A4 

Logic 


1.  Retrieve  up  to  four  CORONARY  ANOMALIES  records,  number 
screen  accordingly,  and  display. 

2.  If  select  record  (SWI  for  select-coronary-anomalies  option 
field)  =■ 

a)  ’O',  go  to  CAMENINTER. 

b)  'n',  where  n  =•  $DATASP,  go  to  CAMODCOROA. 

c)  'n',  where  1£  n  £  $DATASN,  rewind  the  CORONARY 

ANOMALIES  sibling  chain  and  retrieve  the  nth  record  via 
$S2KC0UNT.  Go  to  CAMODCOROA. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSCOROA. 

Validation 


1.  Select-coronary-anomalies  option  field  -  mandatory,  numeric. 


✓ 
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Exhibit  7-69:  CASELC0R0A4  Screen  -  Select  4  COROHART  ANOMALIES 


<S8an>  <name>  <dob>  <sex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patient> 

<readiag>  <lv  normal>  <coronary  angiography  noriBal>  <total  %  narrowed> 


aelect  coronary  anomalies 
coronary  anomaly  site 

1 

2 

3 

4 


0  none  of  the  above 


I 


I 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
coronary-anomalies  option  field. 

2.  The  SWI  name  for  the  option  field  is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


4 
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Chapter  7.89:  CAMODCOBOA 
Purpose 

To  allow  the  user  to  modify  an  existing  CORONARY  ANOMALIES  record. 
Called  From 

CASELC0R0A4  when  the  user  selects  an  existing  CORONARY  ANOMALIES 
record  or  CAINSCOROA  when  a  new  record  Is  entered. 

Screen 

CAMODCOROA. 

Logic 

Display  screen. 

If  modify  record(modlfy-coronary-anofflalles  option  field)  »  N, 
go  to  CAMENINTER. 

Else 

If  modify  record(modlfy-coronary-anomalle8  option  field)  »  Y, 
Issue  a  modify  and  go  to  phase  1. 

Validation 

Modify  record  (SWI  for  modlfy-coronary-anomalles  option  field) 

-mandatory,  table  (YESNOTBL,  exists). 

Coronary  anomaly  site  -  mandatory,  table  (CACOROATBL) 

CACOROATBL 

COLl  C0L2 

01  NONE 

02  ANOMALIES  OF  THE  CORONARY  OSTIA 

03  ANOMALIES  OF  THE  CORONARY  ARTERIAL  DISTRIBUTION 

04  OTHER 


»  4 


•  I 
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Exhibit  7-70;  CAMODCOSOA  Screen  -  Modify  CORONARY  ANOMALIES 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  iior'T\al>  <coronary  angiography  normal>  <total  %  narrowed> 


modify  coronary  anomalies 
coronary  anomaly  site 


1.  The  modify-coronary-anomalles  option  field  and  coronary  anomaly 
site  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  Is  modify  record. 


1 
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Chapter  7.90:  CAINSCOtOA 
Purpose 

To  allow  the  user  to  Insert  a  new  CORONARY 
Called  FrcHB 


* 


♦ 


ANOMALIES  record. 


This  step  Is  called  from  CASELCOROA  when  no  CORONARY  ANOMALIES 
records  exist  for  the  current  Interpretation  or  from  CASELC0R0A4 
when  the  user  chooses  to  Insert  a  new  CORONARY  ANOMALIES  record. 

Screen 


CAINSCOROA. 

Logic 


Purge  SUIs  for  coronary  anomaly  site. 

Display  screen. 

If  Insert  record  (SWI  for  Insert-coronary-anomalles  option  field)  -  Y, 
Insert  CORONARY  ANOMALIES  record  after; 
modify  CORONARY  ANOMALY 

In  parent  INTERPRETATIONS  record  to  Y;  (Indicates  descendant 

CORONARY  ANOMALIES 
record  exists) 

go  to  CAMODCOROA. 

If  Insert  record  (SWI  for  Insert-coronary-anomalles  option  field)  -  N, 
go  to  CAMENINTER. 

Validation 

Insert  record(SWI  for  Insert-corcnary-anomalles  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Coronary  anomaly  site  -  mandatory,  table  (CACOROATBL) 

CACOROATBL 

COLl  C0L2 

01  NONE 

02  ANOMALIES  OF  THE  CORONARY  OSTIA 

03  ANOMALIES  OF  THE  CORONARY  ARTERIAL  DISTRIBUTION 

04  OTHER 


•  •  • 


•  • 


•  • 


•  • 
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Exhibit  7-71:  CAINSCOROA  Screen  -  Insert  CORONARY  ANOMALIES 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coronary  angiography  noriiial>  <total  %  narrowed> 


Insert  coronary  anomalies 
coronary  anomaly  site 


1.  The  Insert-coronary-anomalles  option  field  and  coronary  anomaly 
site  field  are  mandatory. 


2.  The  SWI  name  for  the  option  field  Is  Insert  record. 
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♦ 


I 


Mj 


♦ 


I 


I 


» 


» 


» 


I 


» 


» 


•  • 


-»  — ‘ 
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Chapter  7.91:  CASELDIAG 

Purpose 


The  purpose  of  CASELDIAG  Is  to  first  determine  how  many  DIAGNOSES 
records  exist  in  the  CATHETER  data  base  for  the  current 
interpretation.  If  there  are  no  DIAGNOSES  records,  CAINSDIAG  is 
called;  if  there  between  1  and  4  (inclusive)  DIAGNOSES  records  for 
the  current  interpretation,  CASELDIAG4  is  called;  if  there  are  more 
than  4  DIAGNOSES  records,  CASELDIAG14  is  called.  There  are  no 
screens  associated  with  this  step. 

Called  From 

CAMEN INTER. 

Screen 


Logic 

Select  DIAGNOSES  records  for  current  interpretation. 

If  NODATA, 

go  to  CAINSDIAG. 

If  0  £  $DATASN  <  4, 
go  to  CASELD1AG4. 

If  SDATASN  >  4, 

go  to  CASELDIAG14. 


Validation 
None . 


m 


9 
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Chapter  7.92:  CASELDIAG4 
Purpose 

The  purpose  of  CASBLDIAG4  Is  to  present  up  to  four  DIAGNOSES 
records  to  the  user.  The  user  may  either  select  an  existing  record 
for  review  or  modification,  choose  to  Insert  a  new  record,  or  exit 
to  return  to  the  Interpretations  menu. 

Called  From 

This  step  Is  entered  when  the  current  Interpretation  has  between  1 
and  4  (Inclusive)  DIAGNOSES  records  associated  with  It  In  the  data 
base . 

Screen 


I 


I 


I 


CASELDIAG4  » 

Logic 

1.  Retrieve  up  to  four  DIAGNOSES  records,  number  screen 
accordingly,  and  display. 

» 

2.  If  select  record  (SWI  for  select-diagnoses  option  field)  = 

a)  'O',  go  to  CAMENINTER. 

b)  'n',  where  n  =  $DATASP,  go  to  CAMODDIAG. 

c)  'n',  where  1  ^  n  ^  $DATASN,  rewind  the  DIAGNOSES  sibling 
chain  and  retrieve  the  nth  record  via  $S2KC0UNT.  Go  to 
CAMODDIAG. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSDIAG. 

I 

Validation 

1.  Select-diagnoses  option  field  -  mandatory,  numeric. 


» 


» 


> 


•  •  • 


•  • 


_  ^  • 
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Exhibit  7-72:  CASELDIAG4  Screen  -  Select  4  DIAGNOSES 


<ssan>  <narae>  <dob>  <sex> 

<typ€>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coronary  angiography  normal>  <total  t  narrowed> 


select  diagnoses 
diagnosis 

1 

2 

3 

4 


0 


none  of  the  above 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
diagnoses  option  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


•  • 


•  •  • 
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» 

Chapter  7.93:  CASXLDIAG14 
Purpose 

The  purpose  of  CASELDIAG14  is  to  present  up  to  fourteen  DIAGNOSES 

records  to  the  user.  The  user  may  either  select  an  existing  record  ^ 

for  review  or  modification,  choose  to  Insert  a  new  record,  or  exit 
to  return  to  the  Interpretations  menu. 

Called  From 


This  step  Is  entered  when  the  current  Interpretation  has  more  than 
four  DIAGNOSES  records  associated  with  it  In  the  data  base. 

Screen 

CASELDIAG14 

Logic 


» 


» 


1.  Retrieve  up  to  fourteen  DIA0..OSES  records,  number  screen 
accordingly,  and  display. 

2.  If  'select  record* 

(SWI  for  select-diagnoses  option  field)  » 

a)  'O',  go  to  CAMENINTER. 

b)  'n',  where  n  •  $DATASP,  go  to  CAMODDIAG. 

c)  'n',  where  1  <  n  <  $DATASN,  rewind  the  DIAGNOSES  sibling 
chain  and  retrieve  the  nth  record  via  $S2KC0UNT.  Go  to 
CAMODDIAG . 

d)  'n' ,  where  n  >  $DATASN,  go  to  CAINSDIAG. 

Validation 


> 


» 


I 


1.  Select-diagnoses  option  field  (SWI  is  select  record) 

-  mandatory,  numeric. 


» 


I 


» 


» 
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Exhibit  7-73:  CASELDIAG14  Screen  -  Select  14  DIAGNOSES 


<S8an>  <name>  <dob>  <sex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coronary  angiography  normal>  <total  X  narrowed> 


select  diagnoses 


diagnosis 

1  _ 

2 

3 

4  _ 

5  _ 

6 

7  _ 

8 
9 

10  _ 

11 _ 

12 

13  _ 

14 


0  none  of  the  above 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
diagnoses  option  field. 

2.  The  SWI  name  for  the  option  field  Is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 
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Chapter  7.94:  CAMODDIAG 
Purpose 

To  allow  the  user  to  modify  an  existing  DIAGNOSES  record. 

Called  Proa 

CASELDIAG4  or  CASEL0IAG14  %fhen  the  user  selects  an  existing 
DIAGNOSES  record  or  CAINSDIAG  when  a  new  record  Is  entered. 

Screen 

CAMODDIAG. 

Logic 

Display  screen. 

If  modify  record(modlfy-dlagnoses  option  field)  ■  N, 
go  to  CAMENINTER. 

Else 

If  modify  record(modlfy-dlagnoses  option  field)  »  Y, 

Issue  a  modify  and  go  to  phase  1. 

Validation 

Modify  record  (SWI  for  modlfy-dlagnoses  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Diagnosis  -  mandatory,  table,  (CADIAGTBL) 

CADIAGTBL: 

COLl  CCL2 

01  NO  EVIDENCE  OF  ORGANIC  HEART  DISEASE 

02  NO  EVIDENCE  OF  CORONARY  ARTERY  DISEASE 

05  HYPERTROPHIC  CARDIOMYOPATHY 

06  CARDIOMYOPATHY,  OTHER 

07  AORTIC  VALVE  DISEASE,  A.R. 

08  AORTIC  VALVE  DISEASE,  A.S. 

09  AORTIC  VALVE  DISEASE,  AR-AS 

10  AORTIC  VALVE  DISEASE,  M.R. 

11  AORTIC  VALVE  DISEASE,  M.S. 

12  AORTIC  VALVE  DISEASE,  MR-MS 

16  PERICARDIAL  EFFUSION 

17  PERICARDITIS,  CHRONIC  CONSTRICTIVE 

18  HYPERTENSIVE  CARDIOVASCULAR  DISEASE 

19  PULMONIC  STENOSIS,  VALV  ..AR 

20  PULMONIC  STENOSIS,  INFUNJIBULAR 

21  TRICUSPID  VALVE  DISEASE 

22  LEFT  TO  RIGHT  SHUNT 

23  RIGHT  TO  LEFT  SHUNT 

24  MITRAL  VALVE  PROLAPSE 

25  SIGNIFICANT  CORONARY  ARTERY  DISEASE 

26  MINIMAL  CORONARY  ARTERY  DISEASE 

27  INTIMAL  ROUGHENING  ONLY 

28  NORMAL  VENTRICULAR  FUNCTION 

29  ABNORMAL  VENTRICULAR  FUNCTION 

30  OTHER 


I 


I 


» 


» 


I 


> 


I 


> 


» 


I 


•  •  •  •  •  •  '  • 
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Exhibit  7-74:  CAHODDIAG  Screen  -  Modify  DIAGNOSES 


<ssan>  <naiiie>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patienO 
<reading>  <lv  normal>  <coronary  angiography  nonnal>  <total  Z  narrowed> 


modify  diagnoses 
diagnosis 


1.  The  modify-diagnoses  option  field  and  diagnosis  field  are 
mandatory. 

2.  The  SWI  name  for  the  option  field  is  modify  record. 


•  •  • 
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Chapter  7.95:  CAINSDIAG 

Purpose 

To  allow  the  user  to  Insert  a  new  DIAGNOSES  record. 

Called  From 

This  step  is  called  from  CASELDIAG  when  no  DIAGNOSES  records  exist 
for  the  current  interpretation  or  from  CASELDIAG4  or  CASELDIAG14 
when  the  user  chooses  to  Insert  a  new  DIAGNOSES  record. 

Screen 

CAINSDIAG. 

Logic 

Purge  SUIs  for  diagnosis. 

Display  screen. 

If  insert  record  (SWI  for  insert-diagnoses  option  field)  »  Y, 

Insert  DIAGNOSES  record  after; 
go  to  CAMODDIAG. 

If  Insert  record  (SWI  for  insert-diagnoses  option  field)  -  N, 
go  to  CAMENINTER. 

Validation 

Insert  record(SWI  for  insert-diagnoses  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 
Diagnosis  -  mandatory,  table,  (CADIAGTBL) 

CADIAGTBL: 

COLl  C0L2 

01  NO  EVIDENCE  OF  ORGANIC  HEART  DISEASE 

02  NO  EVIDENCE  OF  CORONARY  ARTERY  DISEASE 

05  HYPERTROPHIC  CARDIOMYOPATHY 

06  CARDIOMYOPATHY,  OTHER 

07  AORTIC  VALVE  DISEASE,  A.R. 

08  AORTIC  VALVE  DISEASE,  A.S. 

09  AORTIC  VALVE  DISEASE,  AR-AS 

10  AORTIC  VALVE  DISEASE,  M.R. 

11  AORTIC  VALVE  DISEASE,  M.S. 

12  AORTIC  VALVE  DISEASE,  MR-MS 

16  PERICARDIAL  EFFUSION 

17  PERICARDITIS,  CHRONIC  CONSTRICTIVE 

18  HYPERTENSIVE  CARDIOVASCULAR  DISEASE 

19  PULMONIC  STENOSIS,  VALVULAR 

20  PULMONIC  STENOSIS,  INFUNDIBULAR 

21  TRICUSPID  VALVE  DISEASE 

22  LEFT  TO  RIGHT  SHUNT 

23  RIGHT  TO  LEFT  SHUNT 

24  MITRAL  VALVE  PROLAPSE 

25  SIGNIFICANT  CORONARY  ARTERY  DISEASE 

26  MINIMAL  CORONARY  ARTERY  DISEASE 

27  INTIMAL  ROUGHENING  ONLY 

28  NORMAL  VENTRICULAR  FUNCTION 

29  ABNORMAL  VENTRICULAR  FUNCTION 

30  OTHER 


Page  7-214 
Chapter  7.101 


Page  7-201 
Chapter  7.95 


✓ 

V 


Exhibit  7-75:  CAINSDIAG  Screen  -  Insert  DIAGNOSES 


<ssan>  <name>  <dob>  <8ex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patient> 

<reading>  <lv  normal>  <coronary  angiography  noraal>  <total  Z  narrowed> 


insert  diagnoses 
diagnosis 


1.  The  insert-diagnoses  option  field  and  diagnosis  field  are 
mandatory. 

2.  The  SWI  name  for  the  option  field  is  insert  record. 
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Chapter  7.96:  CASELREAD 

Purpose 

The  purpose  of  CASELREAD  is  to  first  determine  how  many  READERS 
records  exist  In  the  CATHETER  data  base  for  the  current 
interpretation.  If  there  are  no  READERS  records,  CAINSREAD  is 
called;  If  there  between  1  and  4  (inclusive)  READERS  records  for 
the  current  interpretation,  CASELREAD4  is  called;  if  there  are  more 
than  4  READERS  records,  CASELREAD14  is  called.  There  are  no 
screens  associated  with  this  step. 

Called  From 

CAMENINTER. 

Screen 

None . 

Logic 

Select  READERS  records  for  current  interpretation. 

If  NODATA, 

go  to  CAINSREAD. 

If  0  <  $DATASN  <  4, 
go  to  CASELREAD4. 

If  $DATASN  >  4, 

go  to  CASELREAD14. 

Validation 

None. 
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Chapter  7.97:  CASEIJtEA04 
Purpose 

The  purpose  of  CASELREAD4  Is  to  present  up  to  four  READERS  records 
to  the  user.  The  user  may  either  select  an  existing  record  for 
review  or  modification,  choose  to  Insert  a  new  record,  or  exit  to 
return  to  the  Interpretations  menu. 

Called  From 


This  step  is  entered  when  the  current  Interpretation  has  between  1 
and  4  (Inclusive)  READERS  records  associated  with  It  In  the  data 
base . 

Screen 


CASELREAD4 

Logic 


1.  Retrieve  up  to  four  READERS  records,  iiumber  screen 
accordingly,  and  display. 

2.  If  select  record  (SWI  for  select-readers  option  field)  =• 

a)  'O’,  go  to  CAMENINTER. 

b)  'n',  where  n  =  $DATASP,  go  to  CAMODREAD. 

c)  'n',  where  1  ^  n  $DATASN,  rewind  the  READERS  sibling 
chain  and  retrieve  the  nth  record  via  $S2KC0UNT.  Go  to 
CAMODREAD. 

d)  'n’,  where  n  >  $DATASN,  go  to  CAINSREAD. 

Validation 


1.  Select-readers  option  field  -  mandatory,  numeric. 
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Exhibit  7-76;  CASELRKAD4  Screen  -  Select  4  READERS 


<s8an>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patient> 

<reading>  <lv  noratal>  <coronary  angiography  nonBal>  < total  Z  narrowed> 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
readers  option  field. 

2.  The  SWI  name  for  the  option  field  is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  nuraber 
occurs. 
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Chapter  7.98:  CASELRKA014 
Purpose 

The  purpose  of  CASELREAD14  Is  to  present  i.p  to  fourteen  READERS 
records  to  the  user.  The  user  may  either  select  an  existing  record 
for  review  or  modification,  choose  to  Insert  a  new  record,  or  exit 
to  return  to  the  interpretations  menu. 

Called  From 

This  step  is  entered  when  the  current  Interpretation  has  more  than 
four  READERS  records  associated  with  It  in  the  data  base. 

Screen 

CASELREAD14 

Logic 

1.  Retrieve  up  to  fourteen  READERS  records,  number  screen 
accordingly,  and  display. 

2.  If  'select  record'  (SWI  for  select-readers  option  field)  » 

a)  'O',  go  to  CAMENINTER. 

b)  'n',  where  n  -  $DATASP,  go  to  CAMODREAD. 

c)  'n',  where  1  £  n  ^  SDATASN,  rewind  the  READERS  sibling 
chain  and  retrieve  the  nth  record  via  $S2KC0UNT.  Go  to 
CAMODREAD. 

d)  'n',  where  n  >  $DATASN,  go  to  CAINSREAD. 

Validation 

1.  Select-readers  option  field  (SWI  is  select  record) 

-  mandatory,  numeric. 


» 
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Exhibit  7-77;  CASF.LRKAD14  Screen  -  Select  14  READERS 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  //>  <doe>  <cath  no>  <no.  for  patient> 

<reading>  <lv  nortnal>  <coronary  angiography  normal>  <total  %  narrowed> 


select  readers  _ 
reader 

1 

2 

3 

4 

5  _ 

6 

7 

8 
9 

10  _ 

11 _ 

12 

13  _ 

14  _ 

0  none  of  the  above 


1.  All  of  the  fields  on  this  screen  are  protected  except  the  select- 
readers  option  field. 

2.  The  SWI  name  for  the  option  field  is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 
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Chapter  7.99:  CAMODREAO 

Purpose 

To  allow  the  user  to  modify  an  existing  READERS  record. 

Called  From 

CASELREAD4  or  CASELREAD14  when  the  user  selects  an  existing  READERS 
record  or  CAINSREAD  when  a  new  record  Is  entered. 

Screen 

CAMODREAD. 


Logic 

Display  screen. 

If  modify  record(modlfy-readers  option  field)  =  N, 
go  to  CAMENINTER. 

Else 

If  modify  record(modlfy-readers  option  field)  =*  Y, 

Issue  a  modify  and  go  to  phase  1. 

Validation 

Modify  record  (SWI  for  modlfy-readers  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Reader  -  table  (CAPKYSTBL  - 

ALLEN  HICKMAN  SCHECHTER 

ALPERT  KRYER  SCHWARTZ 

BAILEY  LONGO  SCOVILLE 

CELIO  MONTGOMERY  THOMPSON 

EADES  NEUFELD  TOUCHON 

ENGEL  PARKER  UHL 

FROELICHER  ROTHMAN  WOOD 


0 

\ 
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Exhibit  7-78:  CAMODREAD  Screen  -  Modify  READERS 


<s8an>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 

<readlng>  <lv  normal>  <coronary  angiography  normal>  <total  %  narrowed> 


modify  readers 
reader 


1.  The  modify-readers  option  field  and  reader  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  is  modify  record. 
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Chapter  7.100:  CAINSREAD 

Purpose 

To  allow  the  user  to  Insert  a  new  READERS  record. 

Called  From 

This  step  Is  called  from  CASELREAD  when  no  READERS  records  exist 

for  the  current  interpretation  or  from  CASELREAD4  or  CASELREAD14 

when  the  user  chooses  to  insert  a  new  READERS  record. 

Screen 

CAINSREAD. 

Logic 

Purge  SWIs  for  reader. 

Display  screen. 

If  insert  record  (SWI  for  insert-readers  option  field)  =  Y, 

Insert  READERS  record  after; 
go  to  CAM0n?£AD. 

If  insert  record  (SWI  for  insert-readers  option  field)  -  N, 
go  to  CAMENINTER. 

Validation 

Insert  record(SWI  for  insert-readers  option  field) 

-mandatory,  table  (YESNOTBL,  exists). 

Reader  -  table  (CAPHYSTBL  - 

ALLEN  HICKMAN  SCHECHTER 

ALPERT  KRYER  SCHWARTZ 

BAILEY  LONGO  SCOVILLE 

CELIO  MONTGOMERY  THOMPSON 

EADES  NEUFELD  TOUCHON 

ENGEL  PARKER  UHL 

FROELICHER  ROTHMAN  WOOD 
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Exhibit  7-79:  CAINSREAO  Screen  -  Insert  READERS 


<s8an>  <name>  <dob>  <8ex> 

<type>  <ca8e  #>  <doe>  <cath  no>  <no.  for  patlent> 

<reading>  ^Iv  normal>  <coronary  angiography  norinal>  < total  %  narrowed> 


inaert  readers 
reader 


1.  The  insert-readers  option  field  and  reader  field  are  mandatory. 

2.  The  SWI  name  for  the  option  field  is  Insert  record. 
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Chapter  7.101:  CAMODINTERF 
Purpose 

Certain  fields  In  the  INTERPRETATIONS  record  Indicate  existence  (or 
non-existence)  ol  an  associated  descendent  record.  Also,  In  the 
case  of  PCT  DIAMETER  NARROWED,  the  field  Indicates  the  sum  of  the 
associated  Individual  components  In  the  descendent  records. 

As  a  result,  CAMODINTERF  provides  the  means  for  a  user  to  modify 
the  INTERPRETATIONS  record  and  thereby  Indicate  certain  conditions 
prior  to  exiting  the  steps  which  update  INTERPRETATIONS 
descendents . 

Since  steps  called  by  CAMENINTER  update  the  values  of  components  In 
the  INTER? tlET AT IONS  record,  the  user's  ability  to  modify  fields  Is 
conditional  on  the  present  value.  For  example,  no  modify  will  be 
allowed  to  any  field  updated  as  a  result  of  Inserting  or  modifying 
descendent  records.  Furthermore,  no  modify  will  be  allowed  which 
would  falsely  Indicate  the  existence  of  descendent  records 
(modification  of  components  to  Indicate  descendent  records  must  be 
controlled  by  the  steps  which  Insert  and/or  modify  the  descendent 
records).  Finally,  no  modify  Is  allowed  to  a  component  which  Is  a 
result  of  accumulating  Individual  descendent  record  values,  (see 
validation  section  for  permlssable  updates) 

Called  From 

CAMENINTER  when  the  user  chooses  to  exit  the  steps  which  update  the 
descendants  to  the  INTERPRETATIONS  record. 


Screen 

CAMODINTERF. 

Logic 

Save  all  dependent  data  values  In 
Display  screen. 


SWIs.  (SAVE-CASUPRA,  etc.) 
(SWI-CASUPRA,  etc.  for  screen  values) 


If  modify  record(modlfy-lnterpretatlons  option  field)  =  N, 
go  to  CAMENEXAM. 

Else 

If  modify  record  (modlfy-lnterpretatlons  option  field)  =  Y, 

******************************************************************* 

*  SUPRAVENTRICULAR  AORTOGRAPHY  NORMAL  value  Indicates  whether  a  * 

*  descendant  record  exlst8(N”abnormal-descendant  exists;  Y=normal-* 

*  no  descendant  record  exists; 'blank'  Indicates  test  not  run).  * 

*  Valid  SUPRAVENTRICULAR  AORTOGRAPHY  NORMAL  values  In  this  modify  * 

*  are  dependent  on  the  existing  value  of  the  component:  * 

*  existing  'blank'  can  be  modified  to  Y  * 

*  existing  Y  can  be  modified  to  'blank'  * 

*  existing  N  can  not  be  modified  * 

******************************************************************* 
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If  SWI-CASUPRA  4  SAVE-CASUPRA, 

If  SWI-CASUPRA  -  N,  move  SAVE-CASUPRA  to  SWI-SUPRA, 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  SUPRAVENTRICULAR  AORTOGRAPHY  NORMAL' 
go  to  phase  2. 

If  SWI-CASUPRA  =>  'blank'. 

If  SAVE-CASUPRA  -  N,  move  SAVE-CASUPRA  to  SWI-SUPRA, 

Issue  error  msg: 

'ILLEGAL  MODIFY  TO  SUPRAVENTRICULAR  AORTOGRAPHY  NORMAL' 


go  to  phase  2. 

If  SWI-CASUPRA  »  Y, 

If  SAVE-CASUPRA  -  N,  move  SAVE-CASUPRA  to  SWI-SUPRA, 

Issue  error  msg: 

'ILLEGAL  MODIFY  TO  SUPRAVENTRICULAR  AORTOGRAPHY  NORMAL' 


go  to  phase  2. 

******************************************************************* 

*  Valid  LEFT  VENTRICULOGRAPHY  NORMAL  values  in  this  modify  are  * 

*  dependent  on  the  existing  value  of  the  component:  * 

*  existing  'blank*  can  be  modified  to  Y  * 

*  existing  Y  can  be  modified  to  'blank'  * 

*  existing  N  can  not  be  modified  * 


If  SWI-CALVNORM  4  SAVE-CALVNORM, 

If  SWI-CALVNORM  =  N,  move  SAVE-CALVNORM  to  SWI-CALVNORM, 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  LEFT  VENTRICULOGRAPHY  NORMAL' 
go  to  phase  2 . 

If  SWI-CALVNORM  =  'blank'. 

If  SAVE-CALVNORM  =  N,  move  SAVE-CALVNORM  to  SWI-CALVNORM, 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  LEFT  VENTRICULOGRAPHY  NORMAL* 
go  to  phase  2. 

If  SWI-CALVNORM  =  Y, 

If  SAVE-CALVNORM  =  N,  move  SAVE-CALVNORM  to  SWI-CALVNORM, 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  LEFT  VENTRICULOGRAPHY  NORMAL' 
go  to  phase  2. 

******************************************************************* 


*  Valid  CORONARY  ANGIOGRAPHY  NORMAL  values  in  this  modify  are  * 

*  dependent  on  the  existing  value  of  the  component:  * 

*  existing  'blank'  can  be  modified  to  Y  * 

*  existing  Y  can  be  modified  to  'blank'  * 

*  existing  N  can  not  be  modified  * 


******************************************************************* 
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If  SWI-CACNORM  ^  SAVE-CACNORM, 

If  SWI-CACNORM  -  N,  move  SAVE-CACNORM  to  SWI-CACNORM, 

Issue  error  msg: 

'ILLEGAL  MODIFY  TO  CORONARY  ANGIOGRAPHY  NORMAL' 
go  to  phase  2. 

If  SWI-CACNORM  -  'blank'. 

If  SAVE-CACNORM  -  N,  move  SAVE-CACNORM  to  SWI-CACNORM, 

Issue  error  msg: 

'ILLEGAL  MODIFY  TO  CORONARY  ANGIOGRAPHY  NORMAL' 
go  to  phase  2. 

If  SWI-CACNORM  -  Y, 

If  SAVE-CACNORM  -  N,  move  SAVE-CACNORM  to  SWI-CACNORM, 

Issue  error  msg: 

'ILLEGAL  MODIFY  TO  CORONARY  ANGIOGRAPHY  NORMAL' 
go  to  phase  2 • 

*  CORONARY  CALCIFICATION  value  indicates  whether  a  descendant  rec  * 
exists  (Y»yes  -  It  exists;  N»no  It  does  not  exist;  'blank' 
Indicates  test  not  run).  This  Is  opposite  of  the  'normal' 
Indicators  In  previous  components. 

Valid  CORONARY  CALCIFICATION  values  in  this  modify  are 
dependent  on  the  existing  value  of  the  component: 

existing  'blank'  can  be  modified  to  N 

existing  N  can  be  modified  to  'blank' 

existing  Y  can  not  be  modified 

******************************************************************* 

If  SWI-CACALCIFY  ^  SAVE-CACALCIFY, 

If  SWI-CACALCIFY  *  Y,  move  SAVE-CACALCIFY  to  SWI-CACALCIFY, 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  CORONARY  CALCIFICATION' 
go  to  phase  2. 

If  SWI-CACALCIFY  -  'blank'. 

If  SAVE-CACALCIFY  =■  Y,  move  SAVE-CACALCIFY  to  SWI-CACALCIFY, 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  CORONARY  CALCIFICATION' 
go  to  phase  2. 

If  SWI-CACALCIFY  -  N, 

If  SAVE-CACALCIFY  -  Y,  move  SAVE-CACALCIFY  to  SWI-CACALCIFY, 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  CORONARY  CALCIFICATION' 
go  to  phase  2. 
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******************************************************************* 


*  Valid  MYOCARDIAL  BRIDGE  values  in  this  modify  are 

*  dependent  on  Che  existing  value  of  the  component: 

*  existing  'blank'  can  be  modified  to  N 

*  existing  N  can  be  modified  to  'blank' 

*  existing  Y  can  not  be  modified 

******************************************************************* 

If  SWI-CAMYOCB  SAVE-CAMYOCB, 

If  SWI-CAMYOCB  »  N,  move  SAVE-CAMYOCB  to  SWI-CAMYOCB 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  MYOCARDIAL  BRIDGE' 
go  to  phase  2. 

If  SWI-CAMYOCB  >•  'blank'. 

If  SAVE-CAMYOCB  «  N,  move  SAVE-CAMYOCB  to  SWI-CAMYOCB 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  MYOCARDIAL  BRIDGE' 
go  Co  phase  2. 

If  SWI-CAMYOCB  ■»  Y, 

If  SAVE-CAMYOCB  =»  N,  move  SAVE-CAMYOCB  to  SWI-CAMYOCB 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  MYOCARDIAL  BRIDGE' 
go  Co  phase  2. 

*  Valid  CORONARY  SPASM  values  In  this  modify  are  * 

*  dependent  on  the  existing  value  of  the  component : 

*  existing  'blank'  can  be  modified  to  N 

*  existing  N  can  be  modified  to  'blank' 

*  existing  Y  can  not  be  modified 


If  SWI-CACOROS  ^  SAVE-CACOROS , 

If  SWI-CACOROS  =  N,  move  SAVE-CACOROS  to  SWI-CACOROS 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  CORONARY  SPASM  ' 
go  to  phase  2 . 

If  SWI-CACOROS  =  'blank'. 

If  SAVE-CACOROS  »  N,  move  SAVE-CACOROS  to  SWI-CACOROS 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  CORONARY  SPASM  ' 
go  to  phase  2. 

If  SWI-CACOROS  =  Y, 

If  SAVE-CACOROS  =  N,  move  SAVE-CACOROS  to  SWI-CACOROS 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  CORONARY  SPASM  ' 
go  to  phase  2. 
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*  Valid  COLLATERAL  PRESENT  values 

*  dependent  on  the  existing  value 

*  existing  'blank' 

*  existing  N 

*  existing  Y 


in  this  modify  are 
of  the  component : 
can  be  modified  to  N 
can  be  modified  to  'blank' 
can  not  be  modified 


******************************************************************* 


If  SWI-CACOLL  4^  SAVE-CACOLL, 

If  SWI-CACOLL  -  N,  move  SAVE-CACOLL  to  SWI-CACOLL 

issue  error  msg: 

'ILLEGAL  MODIFY  TO  COLLATERAL  PRESENT' 
go  to  phase  2. 

If  SWI-CACOLL  -  'blank'. 

If  SAVE-CACOLL  -  N,  move  SAVE-CACOLL  to  SWI-CACOLL 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  COLLATERAL  PRESENT' 
go  to  phase  2. 

If  SWI-CACOLL  -  Y, 

If  SAVE-CACOLL  -  N,  move  SAVE-CACOLL  to  SWI-CACOLL 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  COLLATERAL  PRESENT' 
go  to  phase  2. 

*  Valid  CORONARY  ANOMALY  values  in  this  modify  are  * 

*  dependent  on  the  existing  value  of  the  component:  * 

*  existing  'blank'  can  be  modified  to  N  * 

*  existing  N  can  be  modified  to  'blank'  * 

*  existing  Y  can  not  be  modified  * 


If  SWI-CACOROA  4  SAVE-CACOROA, 

If  SWI-CACOROA  »  N,  move  SAVE-CACOROA  to  SWI-CACOROA, 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  CORONARY  ANOMALY  ' 
go  to  phase  2. 

If  SWI-CACOROA  =•  'blank'. 

If  SAVE-CACOROA  »  N,  move  SAVE-CACOROA  to  SWI-CACOROA, 
issue  error  msg: 

'ILLEGAL  MODIFY  TO  CORONARY  ANOMALY  ' 
go  to  phase  2 . 

If  SWI-CACOROA  =  Y, 

If  SAVE-CACOROA  =»  N,  move  SAVE-CACOROA  to  SWI-CACOROA, 
issue  error  msg; 

'ILLEGAL  MODIFY  TO  CORONARY  ANOMALY  ' 
go  to  phase  2. 

issue  a  modify  and  go  to  phase  1. 


I 


» 


» 


» 


» 


» 


» 


» 


» 


\ 
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Validation 


Modify  record  (SWI  for  modlfy-lnterpretations  option  field) 

-  mandatory,  table  (YESNOTBL,  exists). 

Reading  -  mandatory,  defaults  to  DOE,  standard  date 

validation. 

Circulatory  pattern  -  mandatory,  table(CACIRCTBL) ;  edit  on  COLl  and 

validate  on  COL2. 


CACIRCTBL: 

COLl  COL 2 

1  RIGHT  DOMINANT 

2  BALANCED 

3  LEFT  DOMINANT 

Number  of  posterior  descending  branches  -  range  (0-4). 

SUPRAVALVULAR  AORTOGRAPHY  NORMAL  -  optional,  table  (YESNOTBL,  exists) 
table  (CASTATUSTBL,  exists).  CASTATUSTBL  (Y,N, ' blank' ) . 

LEFT  VENTRICULOGRAPHY  NORMAL  -  optional,  table  (YESNOTBL,  exists) 
table  (CASTATUSTBL,  exists).  CASTATUSTBL  (Y,N, ' blank' ) . 

CORONARY  ANGIOGRAPHY  NORMAL  -  optional,  table  (YESNOTBL,  exists) 

,  table  (CASTATUSTBL,  exists).  CASTATUSTBL  (Y,N, ' blank' ) . 

CORONARY  CALCIFICATION  -  optional,  table  (YESNOTBL,  exists) 

,  table  (CASTATUSTBL,  exists).  CASTATUSTBL  (Y,N, ' blank' ) . 

MYOCARDIAL  BRIDGE  -  optional,  table  (YESNOTBL,  exists) 

,  table  (CASTATUSTBL,  exists).  CASTATUSTBL  (Y,N, ' blank' ) . 

CORONARY  SPASM  -  optional,  table  (YESNOTBL,  exists) 

,  table  (CASTATUSTBL,  exists).  CASTATUSTBL  (Y,N, ' blank' ) . 

COLLATERAL  PRESENT  -  optional,  table  (YESNOTBL,  exists) 

,  table  (CASTATUSTBL,  exists).  CASTATUSTBL  (Y,N, ' blank' ) . 

CORONARY  ANOMALY  -  optional,  table  (YESNOTBL,  exists) 

,  table  (CASTATUSTBL,  exists).  CASTATUSTBL  (Y,N, ' blank' ) . 
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Exhibit  7-80:  CAMODISTERF  Screen  -  Modify  IIITERPRETATIONS  -  Final 


<ssan>  <name>  <dob>  <sex> 

<type>  <case  #>  <doe>  <cath  no>  <no.  for  patlent> 


modify  Interpretations  _ 
reading  _ / _ / _ 

supervalvular  aortography  normal  _ 
left  ventriculography  normal  _ 

coronary  angiography  normal  _ 

circulatory  pattern  _ 

coronary  calcification  _ 

myocardial  bridges  _ 

coronary  spasm 
collateral  present 
coronary  anomaly 

number  of  posterior  descending  branches 
total  pet  narrowed 


1.  The  raodlfy-lnterpretatlons  option  field,  the  reading  field,  the 
circulatory  pattern  field,  and  the  number  of  posterior  descending 
branches  field  are  unprotected  and  mandatory. 

2.  The  supervalvular  aortography  normal  field,  left  ventriculography 
normal  field,  coronary  angiography  normal  field,  coronary 
calcification  field,  myocardial  bridges  field,  coronary  spasm 
field,  collateral  present  field,  and  coronary  anomaly  field  are 
unprotected  and  optional  (value  will  be  refreshed  if  Invalid 
modify  attempted). 

3.  All  other  fields  on  the  screen  are  protected. 

4.  The  SWI  name  for  the  option  field  is  modify  record. 


4 


« 


PART  8:  THE  LAB  DATABASE 
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The  LAB  data  base  contains  a  PHIRSON  record  and  data  associated 
with  different  types  of  laboratory  tests.  The  LAB  part  of  the 
transaction  system  allows  selection  of  persons  within  the  L4B  data 
base  and  If  located,  the  insertion  of  new  or  modification  of  old 
test  data.  Actual  person  data  can  only  be  modified  through  the  ECG 
transaction. 

For  each  person  in  the  data  base,  there  exists  different  PANELS 
records,  one  for  each  panel  of  tests.  Each  panel  contains  a 
particular  group  of  tests,  so  descendent  to  PANELS  are  the  TESTS 
records,  one  for  each  test  performed  and  associated  with  the  panel 
under  which  the  test  falls.  Finally,  VALLTES  records,  which  are 
descendent  to  TESTS,  contain  actual  test  data. 

Data  inserted  in  the  LAB  data  base  comes  from  a  series  of  test 
batteries  (for  example;  Electrophoresis  Batterv,  Lipids  Battery, 
etc.)  run  against  a  particular  patient.  Within  a  particular 
battery,  there  are  several  tests  which  may  or  may  not  fall  into  one 
panel.  Since  the  user  will  be  allowed  to  enter  data  by  battery  or 
by  individual  test,  special  care  has  been  taken  to  ensure  that  the 
Integrity  of  the  data  and  the  logical  order  in  which  the  data  has 
been  entered  is  maintained.  For  example,  inserting  new  VALUES 
records  before  the  last  VALUES  record  for  a  test  shall  not  be 
permitted.  Furthermore,  the  user  will  not  be  allowed  to  modify  C18 
through  C23  in  existing  records.  If  Insertion  of  old  VALUES  data 
or  modification  of  protected  components  is  required,  a  programmer 
will  have  to  do  it. 

The  aforementioned  view  is  for  the  lab  technician.  A  second  view 
is  provided  for  the  lab  chief  identical  in  all  respects  to  the  lab 
technician  view  except  that  validation  for  the  chief  it  less 
stringent  than  for  that  of  the  lab  technician.  For  example,  when 
entering  and  modifying  test  values,  the  lab  chief  can  exceed  AMIN 
and  AMAX  boundaries.  The  lab  chief  will  have  a  different 
validation  table  than  for  the  technician. 

The  LAB  data  base  definition  is  shown  in  Exhibit  5-1  followed  by 
the  primary  data  input  forms  in  Exhibit  5-2.  The  steps  that 
perform  updates  to  the  LAB  data  base  are  presented  in  the  chapters 
following  the  exhibits. 


B 


» 


B 


B 


B 


P.ii;o  .1-2 
i’.irc  .. 


Kxhibit  0-1 :  LAB  Database  Definition 


DESCRIBE;  • 

SYSTEM  RELEASE  NUMBER  2.95B 
DATA  BASE  NAME  IS  LAB 
DEFINITION  NUMBER  11 
DATA  BASE  CYCLE  9365 
0*  F'ERSUN 

r*  SSAN  ( CHAR  X ( 9 ) )  ^  • 

2*  NAME  (CHAR  X(19)) 

DOB  (DATE) 

4*  SEX  (NON-KEY  CHAR  X) 

5*  ACTIVE  (CHAR  X) 

6*  TESTS  PENDING  (  INTE(TER  NUMBER  v9 ) 

7*  LINREPORTED  DATA  (CHAR  X)  ■ 

8»  VARIABLE  (NON-KEY  DECIMAL  NUMBER  9(6),9'79) 

27*  Latest  type  (NON-k:ev  char  Xi 

30*  LATEST  CASE  NO  (INTEGER  NUMBER  9(5)) 

JT*  LATEST  E)(AM  no  (NON-CEY  INTEGER  NUMBER  99) 

32*  LATEST  DAY  (NON-KEY  INTEGER  NUMBER  9'>) 

33*  LATEST  SPECIMEN  (NOM-LEV  BATE )  I 

34*  X  (CHAR  X) 

9*  PANELS  (F^ECORD) 

10*  PANEL  (CHAR  X(6)  IN  9) 

- ~TT» — TESTtr  (RCCOiRB  In  9) - 

12*  CODE  (CHAR  XXX  IN  11) 

13*  TESt  (CHAR  X(13)  IN  11)  • 

14*  ACCURACY  (NON-KEY  INTEGER  NUMBER  9  IN  11) 

- re* — HEALTHY  (WuM-KEY — DHAR  X(i3)  IN  II) - 

16*  METHOD  (CHAR  X(6)  IN  11) 

17*  VALUES  (RECORD  IN  11 J 

IS*  TYPE  (NON-KEY  CHaR  X  IN  17) 

19*  CASE  NO  (NON-KEY  INTEGER  NUMBER  9(5)  IN  17)  » 

20*  EXAM  NO  (NON-KEY  INTEGER  NUMBER  99  IN  17) 

2T*  LATEST' 'EXAM  (NuN-KE?7  CHAR  X  IN  17) 

22*  DAY  (NON-KEY  INTEGER  NUMBER  99  IN  17) 

23*  SPECIMEN  (NuN-KEY  DAtE  IN  l7) 

24*  VALUE  (NON-KEY  DECIMAL  NUMBER  9(6). 999  in  17) 

25*  RESULT  ( NON-KEY  CHAR  X(S)  IN  17)  "  • 

26*  FLAG  (CHAR  X  IN  17) 

27*  COMMENTS  (RECORD  IN  l7)  ~ 

23*  COMMENT  (NON-KEY  CHAR  X(42)  IN  27> 
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Chapter  8.1:  LABSELPERS 


Purpose 

When  a  person  Is  selected  from  ECG  and  then  the  LAB  data  base  is 
chosen,  LABSELPERS  Is  called  to  first  determine  whether  the  person 
exists  In  the  lAB  data  base.  If  the  person  exists,  LABSELPERS 
calls  LABMENPERS;  otherwise,  LABSELPERS  calls  LABINSPERS. 

Called  From 


LABSELPERS  Is  called  from  ECGMENPERS  (data  base  menu). 
Screen 


None. 

Logic 

1.  Select  LABPERSON  on  current  SSAN.  If  found,  go  to  LABMENPER. 

2.  Else,  call  LABINSPERS. 

Validation  None. 


B 


B 


B 


B 


B 


•  • 


f 
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Chapter  8.2:  LABINSPERS 


Purpose 

The  pupose  of  lABINSPERS  is  to  allow  the  user  the  option  to  Insert 
a  new  PERSON  (LABPERSON)  record  Into  the  LAB  data  base.  There  is 
no  modification  phase  since  PERSON  data  can  only  be  modified  in  ECG 
(it  is  then  automatically  copied  to  the  other  data  bases). 

Called  From 

LABSELPERS  (when  no  person  exists  in  the  LAB  data  ba«<»)  . 

Screen 

LABINSPERS 

Logic 

1.  Move  PERSON  values  to  LABPERSON  and  display  LABINSPERS. 

2.  If  insert  record  (SWI  for  insert-person  option  field)  “  'Y', 

set  ACTIVE  “  null; 
set  TESTS  PENDING  =  0; 
set  LATEST  TYPE  -  null; 
set  LATEST  CASE  NO  =  null; 
set  LATEST  EXAM  NO  «  0; 
set  LATEST  DAY  -  0; 
set  SPECIMEN  -  null; 

Insert  LABPERSON  after; 
go  to  LABMENPERS. 

3.  If  Insert  record  (SWI  for  insert-person  option  field)  ■  'N', 

go  to  ECGMENPERS. 


Validation 

1.  The  insert-person  option  field  (SWI  is  Insert  record)  is 
mandatory,  table(YESNOTBL,  exists) 

2.  All  other  fields  are  protected.  The  transaction  Inserts  a 
record  containing  fields  with  identical  data  to  ECG  PERSON 
data  or  none  at  all. 


» 


I 


•  •  •  • 
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Exhibit  8-3:  LABIMSPBRS  Screen  -  Insert  Person  In  LAB 


i 


insert  person  _ 

<ssan>  <naaie> 


<dob>  <sex> 

vv/mm/ dd 
'/  / 


1.  All  Fields  are  protected  except  the  ’insert-person’  option  field. 

2.  The  SMI  name  for  the  ’insert-person’  option  field  is  insert 
record. 


•  ••••••• 


m.- 
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CbapCer  8.3: 

Purpose 


LABtENPSKS 


This  step  allo%ra  the  user  to  choose  whether  to  locate  another 
person  (by  calling  ECGSELPERS),  database  (by  calling  ECGMENPERS), 
or  In  the  case  of  LAB  which  update  method  is  desired.  If  the  user 
chooses  to  exit  LAB  either  through  the  exit  option  or  by  choosing 
to  get  another  person  or  access  another  data  base,  a  modify  will  be 
issued  to  LAB  to  ensure  that  the  data  in  level  0  is  current. 

Called  From 

This  step  is  entered  after  a  new  person  has  been  entered  in 
LABINSPERS  and  from  all  other  menus  in  lower  level  processes. 

Screen 

LABMEMPERS  Logic 

1.  Set  SPECIMEN  to  null(for  following  steps  Involving  BATTERY  database). 

2.  Display  screen. 

3.  If  the  select-next-step  option  field  is  set  to: 

< 


a)  'O',  remove  LATEST  EXAM  on  SSAN  and  CASE  NO 
exit. 


LATEST  CASE  NO; 

b)  '1',  remove  LATEST  EXAM  on  SSAN  and  CASE  NO  <  LATEST  CASE  NO; 

go  to  ECGSELPERS. 

c)  '2',  remove  LATEST  EXAM  on  SSAN  and  CASE  NO  <  LATEST  CASE  NO; 


go  to  ECGMENPERS. 

d)  '3',  go  to  LABSPCBATl. 

e)  '4',  go  to  LABSELPAN. 

f)  '5',  go  to  LABMODPERS. 

Validation 

1.  Option  -  mandatory,  range  (0-5). 


r - 

• 

Page  8-8 

Chapter  8.3 

1 

Exhibit  8-4:  LABMENPmS 

• 

<ssan>  <name>  <dob>  <sex> 


select  next  step  _ 

1  person 

2  data  base 

3  update  by  battery 

4  update  single  test 

5  change  active  status 

0  exit 


» 


L.  First  row  Is  protected. 

2.  Select-next-step  option  field  Is  unprotected. 
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Chapter  8.4:  LABSPC8AT1 
Purpose 

The  purpose  of  lABSPCBATl  Is  to  allow  the  user  to  view  the  latest 
TYPE,  CASENO  and  SPECIMEN  date  when  updating  by  battery.  It,  of 
course,  allows  the  user  to  enter  new  TYPE,  CASENO,  and  SPECIMEN 
(date)  data  if  none  exists.  This  step  calculates  EXAMNO  and  DAY. 
Finally,  this  step  allows  the  user  to  specify  the  battery  to 
update. 

Called  From 


LABMENPERS 


Screen 


LABSPCBATl 


Logic 

In  Phase  1: 


IF  SPECIMEN  exists.  Note: 

continue. 

ELSE 


SPECIMEN  was  made  null  in  the 
LABMENPERS  step. 


set  SPECIMEN  -  $DATE; 

If  SPECIMEN  -  C33, 
set  DAY  -  C32. 

If  SPECIMEN  >  C33  and  SPECIMEN  <  (C33  +  30), 
set  TYPE  »  C29,  CASENO  *■  C30,  EXAMNO  -  C31; 
If  SPECIMEN  >  C33, 

set  DAY  »  (C32  +1). 

If  SPECLMEN  >  (C33  +  30), 
blank  TYPE,  CASENO, 
set  EXAMNO  -  (C31  +  1),  DAY  -  1. 


In  Phase  2: 


Note:  To  calculate  C33  +  30,  Increment 
the  month  from  C33  by  1 . 


Display  LABSPCBATl. 
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In  Phase  3: 

If  SELECTBAT  (select- battery  option  field)  “  0, 

go  to  LABMENPERS. 

If  SELECTBAT  (select-battery  option  field)  >  0  and  <  10, 

If  SPECIMEN  <  C33,  ~ 

ring  bell.  Issue  message: 

"OLD  DATA  CAN  BE  ENTERED  ONLY  BY  NGS"; 
go  to  LABMENPERS. 

If  SPECIMEN  >  $DATE, 

Issue  message: 

"INVALID  SPECIMEN  DATE"; 
go  to  Phase  2. 

If  SPECIMEN  _<  (C33  +  30)  and  TYPE  J*  C29, 
ring  bell,  Issue  message: 

"TYPE  DIFFERS  FROM  LAST  ENTRY"; 
go  to  Phase  2. 

If  SPECIMEN  <  (C33  +  30)  and  CASENO  ^  C30, 
ring  bell.  Issue  message: 

"CASENO  DIFFERS  FROM  LAST  ENTRY"; 
go  to  Phase  2. 

If  SPECIMEN  >  (C33  +  30)  and  CASENO  _<  C30, 
ring  bell.  Issue  message: 

"CASENO  INCONSISTENT  WITH  UST  ENTRY"; 
go  to  Phase  2. 

If  SPECIMEN  -  C33  and  TYPE  -  C29  and  CASENO  -  C30, 
set  EXAMNO  -  C31,  DAY  -  C32; 
go  to  LABSPCBAT2. 

If  SPECIMEN  >  C33  and  TYPE  =  C29  and  CASENO  =  C30, 
set  EXAMNO  -  C31,  DAY  =•  (C32  +  1); 
go  to  LABSPCBAT2. 

If  SPECIMEN  >  C33  and  CASENO  >  C30, 
set  EXAMNO  =  (C31  +1),  DAY  =*  1; 
go  to  LABSPCBAT2. 

Set  LATEST  EXAM  *  Y. 

Validation 

TYPE  -  mandatory,  table  (TYPETBL,  previously  defined) . 

CASENO  -  mandatory,  range  (1-25000). 

SPECIMEN  -  mandatory,  defaults  to  $DATE,  range(lJan57  thru  $DATE). 

SELECTBAT  -  mandatory,  range(O-lO). 


i 


» 


t 


i 


•  • 


• 
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Exhibit  8-5:  LABSPCBATl 

\ 

1 

1  <ssan>  <name>  <dob>  <sex> 

1 

1 

1 

;  • 

1 

1 

1 

1 

1  <type> 

<case  no>  <speclmen> 

1 

1 

1 

1 

1 

1 

yy/mm/ dd 

1 

1 

1 

/  / 

1 

1 

1 

1  • 

1  select  battery  _ 

i 

1 

1 

1 

1  1 

hemotology  battery 

i 

1 

1 

1  2 

autoanalyzer  battery 

1 

1 

I  3 

enzymology  battery 

i 

1 

1  4 

electrophoresis  battery 

;  • 

1  5 

lipids  battery 

i 

1 

!  8 

urinalysis  battery 

1 

\ 

1  7 

24  hr  urine  battery 

1 

1 

I  8 

three  glass  urinalysis  battery 

1 

1 

I  9 

miscellaneous  battery 

1 

1 

I  10 

1 

thyroid  profile  battery 

;  i 

1 

1 

!  0 

1 

1 

1 

1 

1 

1 

1 

1 

none  of  the  above 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1  » 

1.  First  row  Is 

protected. 

2.  Type,  case  no,  and  specimen  are  unprotected  and  mandatory. 

1 

3.  SELECTBAT  (SWI  for  select-battery  option  field) 

Is  unprotected 

and  mandatory. 

> 

» 

• 

•  • 

•  •  • 

•  • 

• 
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Chapter  8.5:  LABSPCBAT2 

Purpose 

The  purpose  of  LABSPCBAT2  is  to  allow  the  user  to  update  test  data 
In  LAB  by  battery  for  a  particular  patient.  The  data  updated  is 
fully  validated.  Test  batteries  data  is  kept  in  a  separate  data 
base  -  BATTERY.  The  BATTERY  data  base  definition  and  the  data  to 
populate  it  can  be  found  in  Appendix  A:  BATTERY  Data  Base. 


Called  From 


LABSPCBATl  and  returned  to  from  many  lower  level  steps. 
Screen 


None. 

Logic  NOTE:  To  help  clarify  which  values  are  referenced,  'B'  will 
preceed  any  reference  to  values  from  the  BATTERY  data  base  (for 
example,  BCODE  is  the  SWI  for  CODE  In  the  BATTERY  data  base),  and 
values  from  LAB  data  base  will  carry  no  such  tag  (for  example,  CODE 
represents  the  SWI  for  CODE  from  LAB). 

Open  the  BATTERY  data  base. 

Select  BATTERIES  records  where  BAT  NUM  »  SELECTBAT. 

Retrieve  first  TESTS  record. 


<continued  next  page> 
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CYCLE -THROUOl-TESTS-POINT. 

Set  BCODE  -  Cll,  BTEST  -  C12,  BACCURACY  -  C13,  BHEALTHY  - 
C14,  BHMIN  -  C15,  BHMAX  -  C16,  BAMIN  -  C17,  BAMAX  -  C18, 
BPANEL  -  C19,  and  BMETHOD  -  C20. 

Select  LAB  PANELS  records  (on  SSAN  and  PANEL  =  BPANEL). 

IF  NODATA, 

move  BPANEL  to  PANEL; 

Insert  PANELS  record  (PANELS  records  should  be  In 
alphabetical  order:  see  LABINSPAN); 
move  BCODE  to  CODE,  BTEST  to  TEST,  BACCURACY  to  ACCURACY, 
BHEALTHY  to  HEALTHY  and  BMETHOD  to  METHOD; 

Insert  TESTS  record  (TESTS  records  should  be  In 
alphabetical  order  by  CODE:  see  LABINSTEST); 

IF  BACCURACY  exists, 

go  to  LABINSVALV  (insert  'value'  type  VALUES  record); 
ELSE 

go  to  LABINSVALR  (Insert  'result'  type  VALUES  record); 

ELSE 

Select  TESTS  record  on  SSAN  and  where  PANEL-BPANEL,  CODE- 
BCODE, TEST-BTEST, ACCURACY  =»BACCURACY,  HEALTHY=BHEALTHY, 
and  METHOD  -  BMETHOD. 

IF  nodata, 

move  BCODE  to  CODE, BTEST  to  TEST, BACCURACY  to  ACCURACY, 
BHEALTOY  to  HEALTHY,  and  BMETHOD  to  METHOD, 
insert  TESTS  record  (TESTS  records  should  be  in 
alphabetical  order  by  CODE:  see  LABINSTEST); 

IF  BACCURACY  exists, 

go  to  LABINSVALV  (see  above); 

ELSE 

go  to  LABINSVALR  (see  above). 

ELSE 

Select  VALUES  record  where  PANEL=BPANEL,  CODE-BCODE, 
TEST-BTEST,  ACCURACY -BACCURACY,  HEALTHY-BHEALTHY, 
METHOD  -  BMETHOD,  and  SPECIMEN  -  SPECIMEN(entered) . 
IF  NODATA, 

IF  ACCURACY  exists, 

go  to  LABINSVALV  (see  above); 

ELSE 

go  to  LABINSVALR  (see  above). 

ELSE  IF  SDATASN  -  1, 

retrieve  VALUES  record; 

IF  ACCURACY  exists, 

go  to  LABMODVALV  (modify  located  record); 

ELSE 

go  to  LABMODVALR  (modify  located  record). 

ELSE  IF  $DATASN  >  1 
ring  bell; 

issue  msg: "DOUBLE  ENTRY  FOUND-CALL  NGS"; 
close  BATTERY  data  base, 
go  to  LABMENPERS. 
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RETURN-FROM-LOWER-LEVEL-STEPS-PO INT . 

Retrieve  next  TESTS  record  from  BATTERY. 

ON  EOD,  close  BATTERY  data  base;  go  to  LABSPCBATl. 
Go  to  CYCLE-THROUGH-TESTS-POINT. 


Page  8-15 
Chapter  8.6 


% 


Chapter  8.6:  LABSELPAN 

Purpose 

LABSELPAN  is  where  the  process  starts  for  updating  single  tests. 
This  step  is  transparent  to  the  user.  The  purpose  of  LABSELPAN  Is 
to  first  determine  how  many  PANELS  records  exist.  If  no  PANELS 
records  exist,  LABINSPAN  Is  called;  If  one  to  four  exist 
(inclusive),  LABSELPAN4  Is  called;  and.  If  more  than  four  exist, 
LABSELPAN14.  Calls  are  made  to  the  appropriate  step  for  the 
purpose  of  locating  PANELS  records  for  access  to  lower  level  tests 
or  inserting  new  PANELS  records. 

Called  From 


LABSELPAN  is  called  from  LABMENPERS  when  the  option  is  chosen  to 
update  by  single  test, and  from  LABMENPAN  and  LABMENTEST  when  the 
user  wishes  to  add  additional  panels  from  lower  level  menus. 

Screen 


None. 

Logic 

1.  Set  SELECTBAT  (SMI)  to  $NULL. 

Note:  This  Is  set  to  determine  whether  or  not  you  came 

from  LABSPCBAT2  or  LABSELPAN  in  steps  LABSELVAL, 
LABINSVALV,  LABINSVALR,  LABMODVALV,  and  LABMODVALR 
for  return  purposes.  When  null,  you  are  updating  by 
single  test;when  numeric,  you  are  updating  by  battery. 

2.  Select  PANELS  records  on  SSAN  (entered). 

3.  IF  NODATA, 

go  to  LABINSPAN. 

4.  IF  $DATASN  >  1  and  $DATASN  <  4, 

go  to  LAB SELF AN4. 

5.  IF  $DATASN  4. 

go  to  LABSELPAN14. 


» 


» 


B 


B 


Validation 


B 


B 


•  • 


•  •  •  • 


None 


I 
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Chapter  8.7:  LABSELPAH4 

Purpose 

To  present  the  user  with  up  to  4  LAB  PANELS  records  for  the  current 
person.  The  user  may  select  a  panel  for  review  and  access  to  lower 
level  tests  records  or  choose  to  insert  a  new  panel,  or  exit  to 
select  another  option.  If  this  step  is  called,  there  are  no  more 
than  4  PANELS  records. 

Called  From 

LABSELPAN4  is  called  from  LABSELPAN. 

Screen 


I 


> 


» 


LABSBLPAN4 

Logic 

1.  Retrieve  up  to  four  PANELS  records,  number  screen  accordingly,  and 
display. 

2.  If  'select  record'  (SWI  for  select-panel  option  field)  =■ 

a)  'O', 

go  to  LABMENPERS 

b)  'n' ,  where  n  -  $DATASP, 

go  to  LABMENPAN  (NOTE:  Panels  shall  not  be  modified). 

c)  '  n'  ,  where  1  n  ^  $DATASN, 

rewind  the  LABPANELS  sibling  chain; 

retrieve  the  nth  record  via  $S2KC0UNT; 

go  to  LABMENPAN  (NOTE:  Panels  shall  not  be  modified). 

d)  ' n' ,  where  n  >  $DATASN, 

go  to  LABINSPAN. 


» 


> 


I 


I  Validation 

I 

1.  The  select-panel  option  field  (SWI  select  record)  -  ► 

mandatory,  numeric. 


L 


•  •  • 


•  •  • 


8 


I 


cs  <f 
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Exhibit  8-6;  LABSELPAN4  Screen  -  Select  4  PANELS  from  LAB 


<ssan> 


<name> 


<dob> 


select  panel 


1 


panel 


0  none  of  the  above 


<sex> 


<race> 


1.  All  data  on  the  screen  Is  protected  except  for  the  'select-panel' 
option  field. 

2.  The  SWI  name  for  the  'select-panel'  option  field  is  select 
record . 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 
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Chapter  8.8:  IABSELPAH14 

Purpose 

To  present  the  user  with  LAB  PANELS  records  up  to  14  at  a  time  for 
the  current  person.  The  user  may  select  a  panel  for  review  and 
access  to  lower  level  tests  records  or  choose  to  Insert  a  new 
panel,  or  exit  to  select  another  option. 

Called  From 

This  step  Is  called  from  LABSELPAN  (when  more  than  4  LAB  PANELS 
records  are  located  for  a  particular  person). 

Screen 

LABSELPAN14 

Logic 

1.  Retrieve  up  to  14  PANELS  records. 

Number  screen  accordingly,  and  display. 

If  $DATASP  <  $DATASN,  then  Issue  message: 

"Press  Return  To  See  More  Records". 
If  $DATASP  “  $DATASN  and  $DATASN  >  14,  then  issue  message; 

"Press  Return  To  See  Prior  Records" 

2.  If  'select  record'  (SWI  for  select-panel  option  field)  is 

a)  blanks , 

if  $DATASP  =  $DATASN,  rewind  locate  file, 
go  to  phase  1. 

b)  'O', go  to  LABMENPERS. 

c)  'n',  where  n  -  $DATASP, 

go  to  LABMENPAN  (NOTE:  Panels  shall  not  be  modified). 

d)  ' n' ,  where  1  ^  n  ^  $DATASN, 

rewind  the  sibling  chain; 

retrieve  the  nth  record  via  $S2KC0UNT; 

go  to  LABMENPAN  (NOTE;  Panels  shall  not  be  modified). 

e)  ' n' ,  where  n  >  $DATASN, 

go  to  LABINSPAN. 

Validation 


1.  The  select-panel  option  field  (SWI  select  record)  -  numeric, 
if  present. 


Page  8-19 
Chapter  8.8 


Exhibit  8-7:  LABSELPAH14  Screen  -  Select  14  PANELS  Froa  LAB 


<ssaa> 


<name> 


<dob> 


<sex> 


<race> 


select  panel 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 


panel 


0  none  of  the  above 


1.  This  screen  is  identical  to  LABSELPAN4  except  that  it  will 
accommodate  up  to  14  panels  per  screen. 

2.  All  data  on  the  screen  is  protected  except  for  the  select-panel 
option  field. 

3.  The  SWI  name  for  the  select-panel  option  field  is  select  record. 

4.  The  numbers  on  the  left  of  each  record  are  SWTs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 
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Chapter  8.9:  LABIHSPAN 

Purpose 

The  purpose  of  this  step  Is  to  allow  users  to  Insert  additional 
PANELS  records  into  the  LAB  data  base. 

Called  From 

LABSELPAN,  LABSELPAN4  or  LABSELPAN14. 

Screen 


LAB INS PAN 
Logic 

1.  Display  Screen. 

2.  If  Insert  record  (SWI  for  insert-panel  option  field)  =  N, 

go  to  LABMENPERS. 

3.  If  insert  record  (SWI  for  insert-panel  option  field)  =  Y, 

edit  PANEL  to  long  value  if  code,  validate  panel; 

Insert  record  in  alphabetical  order  with  the  rest  of  the  PANELS 
records  (in  order  to  do  this,  retrievals  after  a  locate  can 
compare  the  PANEL  component  in  each  of  the  retrieved  records 
to  the  PANEL  component  in  the  record  to  be  inserted; when  the 
PANEL  component  in  the  retrieved  record  is  greater  th=n  the 
PANEL  component  in  the  record  to  be  inserted,  the  record  can 
then  be  Inserted  before;  NOTE:  If  PANEL  component  in  the 
retrieved  record  =  PANEL  component  in  the  record  to  be 
inserted,  issue  message:  "PANEL  ALREADY  EXISTS"  and  go  to 

LABSELPAN  -  This  will  ensure  no  duplicate  PANELS  records  and 
all  records  will  stay  in  alphabetical  order). 

go  to  LABMENPAN  (modifying  the  PANELS  records  is  not  allowed 
since  this  would  jeopardize  the  integrity  of  all  lower  level 
test  data). 

Validation 

1.  Insert  record  (SWI  for  insert-panel  option  field)  is 
mandatory,  table  (YESNOTBL,  exists). 

2.  Panel  validation  is  table  (LABPANTBL)  in  Appendix  A.  Panel 
SWI  is  validated  to  be  A-Z2,  COLl,  if  code,  then  edited  from 
COLl  (codes)  to  C0L2  (long  values),  validate  on  C0L2. 
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ft 


Exhibit  8-8:  LABUSPAN  Screen  -  Insert  PANELS  Record  In  LAB 


I  I 

I  I 

I  <ssan>  <name>  <dob>  <sex>  <race>  | 


Insert  panel  _ 

panel  -  code  or  long  name 


- - - 

1.  Row  1  Is  protected. 

2.  The  SWI  name  for  the  insert-panel  option  field  is  Insert  record. 

3.  The  panel  can  be  entered  in  as  a  code  or  by  the  long  name. 

4.  All  unprotected  fields  are  mandatory. 


•  •  • 
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Chapter  8.10:  LAMENPAN 

Purpose 

The  purpose  of  this  step  Is  to  allow  the  user  to  choose  whether  to 
exit  LAB,  proceed  to  a  menu  that  will  allow  the  user  to  choose 
another  person  (ECGSELPERS) ,  proceed  to  a  menu  that  will  allow  the 
user  to  choose  another  data  base  (ECGMENPERS) ,  proceed  to  a  menu 
that  will  allow  the  user  to  choose  another  type  of  update  to  LAB 
(LABMENPERS) ,  allow  the  user  to  select  another  PANELS  record 
(LABSELPAN),  or  select  to  upadte  by  test. 

Called  From 

LABSELPAN4,  LABSELPAN14,  LABINSPAN,  or  any  lower  level  menu. 

Screen 

LABMENPAN 

Logic 

1.  Display  screen. 

2.  If  the  select-next-step  option  field  is  sec  to: 

a)  'O'. 

remove  LATEST  EXAM  on  SSAN  and  CASE  NO  <  LATEST  CASE  NO; 
exit. 

b)  '1'  . 

remove  LATEST  EXAM  on  SSAN  and  CASE  NO  <  LATEST  CASE  NO; 
go  to  ECGSELPERS. 

c)  '2', 

remove  LATEST  EXAM  on  SSAN  and  CASE  NO  <  LATEST  CASE  NO; 


go 

to 

ECGMENPERS. 

d) 

'3', 

go 

to 

LABMENPERS 

e) 

•4', 

go 

to 

LABSELPAN. 

f) 

■5'. 

go 

to 

LABSELTEST 

Validation 


1.  Option  -  mandatory,  range  (0-5). 
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Exhibit  8-9;  LAMENPAN 

I 
I 

1  <ssan>  <name>  <dob>  <sex> 

1  <panel> 


select  next  step  _ 

1  person 

2  data  base 

3  lab  menu 

4  update  additional  panels 

5  update  single  test 

0  exit 


1.  First  two  rows  are  protected. 

2.  SWI  for  select-next-step  option  field  is  unprotected. 
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Chapter  8.11:  LABSELTSST 


LABSELTEST  is  transparent  to  the  user.  The  purpose  of  LABSELTEST  Is 
to  first  determine  how  many  TESTS  records  exist.  If  no  TESTS 
records  exist,  LABINSTEST  is  called;  if  one  to  four  exist 
(inclusive),  LABSELTEST4  is  called;  and,  if  more  than  four  exist, 
LABSELTEST14  is  called.  Calls  are  made  to  the  appropriate  step  for 
the  purpose  of  locating  TESTS  records  for  access  to  lower  level 
VALUES  records,  or  inserting  new  TESTS  records. 

Called  From 

LABSELTEST  is  called  from  LABMENPAN  when  the  option  is  chosen  to 
continue  updating  via  single  tests.  This  step  is  also  called  from 
LABINSTEST  when  a  duplicate  test  is  found  upon  attempting  an 
Insert . 

Screen 


None. 

Logic 

1.  Select  TESTS  records  on  SSAN  and  PANEL. 

2.  IF  NODATA, 

go  to  LABINSTEST. 

3.  IF  $DATASN  >  1  and  SDATASN  <  4, 

go  to  LABSELTEST4. 

4.  IF  $DATASN  >  4, 

go  to  LABSELTEST14. 


Validation 


None . 
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Chapter  8.12:  LABSBLTEST4 

Purpose 


To  present  the  user  vilth  up  to  4  LAB  TESTS  records  for  the  current 
person.  The  user  may  select  a  test  for  review  and  access  to  lower 
level  values  records  or  choose  to  insert  a  new  test,  or  exit  to 
select  another  option.  If  LABSELTEST4  Is  called,  there  are  no  more 
than  4  TESTS  records. 

Called  From 

LABSELTEST4  Is  called  from  LABSELTEST. 

Screen 

LABSELTEST4 

Logic 

1.  Retrieve  up  to  4  TESTS  records, 
number  screen  accordingly,  and  display. 

2.  If  'select  record'  (SWI  for  select-test  option  field)  =» 

a)  'O', 

go  to  LABMENPAN. 

b)  'n',  where  n  =  $DATASP, 

go  to  LABSELVAL  (NOTE:  tests  shall  not  be  modified). 

c)  'n' ,  where  1  ^  n  ^  SDATASN, 

rewind  the  LABTESTS  sibling  chain; 

retrieve  the  nth  record  via  $S2KC0UOT; 

go  to  LABSELVAL  (NOTE:  tests  shall  not  be  modified). 

d)  'n',  where  n  >  $DATASN, 

go  to  LABINSTEST. 

Validation 


1 


The  select-test  option  field  (SWI  select  record) 
mandatory,  numeric. 
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Exhibit  8-10:  LABSELTSST4  Screen  -  Select  4  TESTS  fron  LAB 


- + 

I  I 

I  I 

!  <ssan>  <name>  <dob>  <sex>  <race>  1 

I  <panel>  I 

I  I 

I  I 

I  I 

1  select  test  _  1 

I  I 

1  code  test  accuracy  healthy  method  1 

!  1  I 

I  2  I 

1  3  1 

1  4  " 


0  none  of  the  above 


+_ - + 

1.  All  data  on  the  screen  Is  protected  except  for  the  ' select-test' 
option  field. 

2.  The  SWI  name  for  the  'select-test*  option  field  is  select  record. 

3.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


•  • 
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Chapter  8.13:  L4BSELTEST14 

Purpose 

To  present  the  user  with  LAB  TESTS  records  up  to  14  at  a  time  for 
the  current  person.  The  user  may  select  a  test  for  review  and 
access  to  lower  level  tests  records  or  choose  to  Insert  a  new  test, 
or  exit  to  select  another  option. 

Called  From 

This  step  is  called  from  LABSELTEST  (when  more  than  4  LAB  TESTS 
records  are  located  for  a  particular  person). 

Screen 

LABSELTEST14 

Logic 

1.  Retrieve  up  to  14  TESTS  records  and  number  screen  accordingly. 
Display  screen. 

If  $DATASP  <  $DATASN,  then  Issue  message: 

“Press  Return  To  See  More  Records". 
If  $DATASP  -  $DATASN  and  $DATASN  >  14,  then  issue  message: 

"Press  Return  To  See  Prior  Records". 

2.  If  'select  record'  (SWI  for  select-test  option  field)  is 

a)  blanks , 

If  $DATASP  =•  SDATASN, 
rewind  locate  file; 
go  to  phase  1. 

b)  ’O', 

go  to  LABMENPAN. 

c)  'n',  where  n  =  $DATASP, 

go  to  LABSELVAL  (NOTE:  tests,  shall  not  be  modified). 

d)  '  n'  ,  where  1  <.  n  <  $DATASN, 

rewind  the  sibling  chain; 

retrieve  the  nth  record  via  $S2KC0UNr; 

go  to  LABSELVAL  (NOTE:  tests  shall  not  be  modified). 

e)  'n',  where  n  >  $DATASN, 

go  to  LABINSTEST. 


Validation 


» 


i 


i 


Select-test  option  field  must  be  numeric,  if  present. 


» 


•  •  • 


1. 
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Exhibit  8-11:  LABSELtBST14  Screen  -  Select  14  TESTS  Fron  LAB 


<ssan> 

<panel> 


<name> 


select  test 


code 


test 


accuracy 


<dob> 


healthy 


<sex> 


method 


<race> 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 


0  none  of  the  above 


1.  This  screen  Is  identical  to  LABSELTEST4  except  that  It  will 
accommodate  up  to  14  tests  per  screen. 

2.  All  data  on  the  screen  is  protected  except  for  the  select-test 
option  field. 

3.  The  SWI  name  for  the  select-test  option  field  is  select  record. 

4.  The  numbers  on  the  left  of  each  record  are  SWIs  that  are  computed 
by  the  step  and  are  only  displayed  when  a  record  of  that  number 
occurs . 


•  •  • 


•  •  • 
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ClupCer  8.14:  LABIKSTEST 

Purpose 


The  purpose  of  this  step  Is  to  allow  users  to  insert  additional 
TESTS  records  into  the  LAB  data  base. 


Called  From 

LABSELTEST,  LABSELTEST4,  or  LABSELTEST14. 


Screen 

LABINSTEST 


Logic 


NOTE:  If  BACCURACY  is  null,  VALUES  record  will  be  a  'result'. 
If  BACCURACY  exists,  VALUES  record  will  be  a  'value'.) 


Display  Screen. 

If  insert  record  (SWI  for  insert-tests  option  field)  »  N, 
go  to  LA&MENPAN. 


(continued  on  next  page) 
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LABINSTEST  Logic  (continued) 


i 


If  insert  record  (SWI  for  insert-tests  option  field)  =•  Y, 

If  CODE  fails  and  TEST  fails,  » 

issue  msg:  "MUST  ENTER  CODE  OR  TEST"; 
go  to  phase  2. 

If  C0I£  exists, 

select  BATTERY  TESTS  records  on  CODE; 

If  NODATA,  • 

issue  msg:  "INVALID  CODE"; 
go  to  phase  2. 

If  $DATASN  -  1, 

If  METHOD  fails, 

set  METHOD  -  BMETHOD. 

If  METHOD  exists,  • 

If  BMETHOD  ^  METHOD, 

issue  msg:  "METHOD  INCONSISTENT  WITH  CODE"; 
go  to  phase  2. 

If  TEST  fails, 

set  TEST  »  BTEST. 

If  TEST  exists,  • 

If  BTEST  TEST, 

issue  msg:  "TEST  INCONSISTENT  WITH  CODE"; 
go  to  phase  2. 

If  $DATASN  >  1, 

If  METHOD  falls, 

issue  msg:  "NEED  METHOD";  i 

go  to  phase  2. 

If  METHOD  exists, 

select  BATTERY  TESTS  records  on  CODE  and  METHOD, 

If  $DATASN  -  0, 

issue  msg:  "METHOD  NOT  DEFINED  FOR  CODE"; 

go  to  phase  2.  t 

If  $DATASN  -  1, 

If  TEST  falls, 
set  TEST  -  BTEST. 

If  TEST  exists. 

If  BTEST  f  TEST, 

issue  message:”TEST  INCONSISTENT  WITH  CODE";  • 

go  to  phase  2. 

(continued  on  next  page) 


» 


•  •  •  • 


•  •  •  • 


V 
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LABINSTEST  Logic  (continued) 

If  CODE  fails, 

select  BATTERY  TESTS  records  on  TEST; 

If  NODATA, 

Issue  message:  "INVALID  TEST"  and  go  to  phase  2. 

If  $DATASN  =  1, 

If  METHOD  fails, 

set  METHOD  =  BMETHOD. 

If  METHOD  exists. 

If  BMETHOD  ^  METHOD, 

issue  message:  "METHOD  INCONSISTEOT  WITH  TEST"; 
go  to  phase  2. 
set  CODE  =  BCODE. 

If  SDATASN  >  1, 

If  METHOD  fails, 

issue  message:  "NEED  METHOD"  and  go  to  phase  2. 

If  METHOD  exists, 

select  BATTERY  TESTS  records  on  TEST  and  METHOD, 

If  SDATASN  =  0, 

issue  message:  "METHOD  NOT  DEFINED  FOR  TEST"; 
go  to  phase  2. 

If  SDATASN  =  1, 
set  CODE  =  BCODE. 

•  set  ACCURACY  =  BACCURACY,  HEALTHY  =  BHEALTHY. 

locate  LAB  TESTS  records  on  SSAN  and  PANEL, 
retrieve  first  LAB  TESTS  record, 
on  EOD, 

insert  TESTS  record  after; 
go  to  LABSELVAL. 

CYCLE-POINT. 

If  CODE  of  retrieved  record  >  CODE  of  record  being  inserted, 
insert  TESTS  record  before  and  go  to  LABSELVAL. 

If  retrieved  CODE  =  CODE  of  record  to  be  Inserted, 

If  retrieved  METHOD  =  METHOD  of  record  being  inserted, 

issue  message;  "TEST  ALREADY  EXISTS"  and  go  to  LABSELTESTS. 
If  retrieved  METHOD  1*  METHOD  being  inserted, 
retrieve  next  LAB  TESTS  record; 
on  EOD, 

insert  TESTS  record  after  and  go  to  LABSELVAL. 
go  to  CYCLE-POINT, 
retrieve  next  LAB  TESTS  record, 
on  EOD, 

insert  TESTS  record  after  and  go  to  LABSELVAL. 
go  to  CYCLE-POINT. 
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Validation 

1.  Insert  record  (SWI  for  Insert-tests  option  field)  is 
mandatory,  table  (YESNOTBL,  exists). 

2.  CODE,  TEST,  and  METHOD  are  optional. 


Exhibit  8-12:  LABIHSTEST  Screen  -  Insert  TESTS  Record  In  LAB 


<ssan> 

<panel> 

insert  test 
code 


<naine> 


<dob> 


<sex> 


<race> 


test 


method 


1.  First  two  rows  are  protected. 

2.  The  SWI  name  for  the  insert-test  option  field  Is  insert  record. 

3.  All  unprotected  fields  are  optional. 


•  •••••• 
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Chapter  8.15:  LABMENTEST 

Purpose  The  purpose  of  this  step  is  to  allow  the  user  to  choose 
%»hether  to  exit,  allow  the  user  to  choose  another  person 
(ECGSELPERS) ,  proceed  to  a  menu  that  will  allow  the  user  to  choose 
another  data  base  (ECGMENPERS) ,  proceed  to  a  menu  that  will  allow 
the  user  to  choose  another  type  of  update  to  LAB  (LABMENPERS) , 
allow  the  user  to  update  additional  panels  (LABSELPAN),  allow  the 
user  to  select  other  TESTS  records  (LABSELTEST) ,  or  allow  the  user 
to  select  or  insert  VALUES  records  for  the  current  TESTS  record 
(LABSELVAL). 

Called  From  LABSELTEST4,  LABSELTEST14,  LABINSTEST.and  any  lower 
level  menu. 

Screen  LABMENTEST 
Logic 

1.  Display  screen. 

2.  If  the  select-next-step  option  field  is  set  to: 

a)  'O', 

remove  LATEST  EXAM  on  SSAN  and  CASE  NO  <  LATEST  CASE  NO; 
go  to  exit. 

b)  '!', 

remove  LATEST  EXAM  on  SSAN  and  CASE  NO  <  LATEST  CASE  NO; 
go  to  ECGSELPERS. 

c)  '2', 

remove  LATEST  EXAM  on  SSAN  and  CASE  NO  <  LATEST  CASE  NO; 


go 

to 

ECGMENPERS. 

d) 

'3', 

go 

to 

LABMENPERS 

e) 

•4', 

go 

to 

LABSELPAN. 

f) 

'5', 

go 

to 

LABSELTEST 

g) 

'6', 

go 

to 

LABSELVAL. 

Validation 


1.  Select  next  step  option  field  -  mandatory,  range  (0-6). 


•  • 


•  • 
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Exhibit  8-13:  lABfENTEST 


t 


<s8an>  <name> 

<dob> 

<sex> 

<panel> 

<code  >  <test> 

<accuracy> 

<healthy> 

<method> 

select  next  step  _ 

1  person 

2  data  base 

3  lab  menu 

4  update  additional  panels 

5  update  additional  test 

6  update  single  test 

0  exit 


1.  First  three  rows  are  protected. 

2.  SWI  for  select-next-step  option  field  is  mandatory  and 
unprotected. 


•  •  • 


•  •  • 
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Chapter  8.16:  LABSELVAL 

Purpose 

This  step  is  transparent  to  the  user.  The  purpose  of  this  step  is 
to  determine  the  number  of  VALUES  records  for  a  particular  test 
and,  if  present,  whether  the  records  are  "value"  type  records  or 
"result"  type  records.  If  ACCURACY  exists  for  the  test,  the  VALUES 
records  are  "values";  if  ACCURACY  does  not  exist,  the  records  are 
“results".  If  no  VALUES  records  exist,  either  LABINSVALV  or 
LABINSVALR  is  called;  if  one  to  four  exist  (inclusive),  either 
LABSELVALV4  or  LABSELVALR4  is  called;  and,  if  more  than  four  exist, 
either  LABSELVALV14  or  LABSELVALR14  is  called.  The  step  called  in 
the  above  cases  is  dependent  on  whether  it  Is  a  value  or  result. 

Called  From 

This  step  la  entered  from  LABMENTEST  and  LABSPCBAT2.  If  duplicate 
VALUE  records  found,  this  step  is  also  called  from  LABINSVALV  and 
LABINSVALR. 

Screen 

None. 

Logic 

1.  Select  VALUES  records  on  SSAN,  PANEL,  CODE,  and  METHOD 

where  C23  (LAB)  =•  SPECIMEN  (entered). 

2.  If  NO DATA, 

If  ACCURACY  exists, 
go  to  LABINSVALV; 

Else 

go  to  LABINSVALR. 

3.  If  $DATASN  1  and  $DATASN  4, 

If  ACCURACY  exists, 

go  to  LABSELVALV4; 

Else 

go  to  LABSELVALR4. 

4.  If  $DATASN  >  4, 

If  ACCURACY  exists, 

go  to  LABSELVALV14; 

Else 

go  CO  LABSELVALR14, 


» 


» 


8 


» 


i 


Validation 


» 


•  •  • 


None 
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Chapter  8.17:  LABSELVALV4 

Purpose 

To  allow  the  user  to  select  existing  value-type  VALUES  record  for 
modification  or  to  insert  a  new  value-type  VALUES  record. 

Called  From 

This  step  is  called  from  LABSELVAL  when  between  1  and  4  (inclusive) 
VALUES  records  for  this  test  were  located  and  ACCURACY  exists. 

Screen 


LABSELVALV4 

Logic 

1.  Retrieve  up  to  4  VALUES  records,  ordered  by  SPECIMEN; 
number  screen  accordingly,  and  display. 

2.  If  'select  record'  (SWI  for  select-value  option  field)  = 

a)  'O',  go  to  LABMENTEST. 

b)  'n',  where  n  -  $DATASP, 

go  to  LABMODVALV. 

c)  'n'  ,  where  1  <  n  _<  $DATASN, 

rewind  the  LAB  TESTS  sibling  chain; 
retrieve  the  nth  record  via  $S2KC0UNr; 
go  to  LABMODVALV. 

d)  'n',  where  n  >  $DATASN, 

go  to  LABINSVALV. 


Validation 


» 


i 


1.  Select-value  option  field  -  mandatory,  numeric. 


» 


r 


•  •  •  • 


1.  All  Items  are  protected  except  select  value  option  field  (SWI  Is 
select  record). 

2.  Screen  LABSELVALV4  is  Identical  to  LABSELVALR4  except  the  two 
occurrences  of  the  literal  'value*  are  replaced  with  ' result' 
(see  screen  LABSELVALR4) . 

3.  Screen  LABSELVALV4  is  identical  to  LABSELVALV14  except 
LABSELVALV4  only  allows  a  choice  of  up  to  4  VALUES  records  at  a 
time. 


Page  8-38 
Chapter  8.18 


Chapter  8.18:  LABSELVALV14 

Purpose 

To  allow  the  user  to  select  existing  value-type  VALUES  record  for 
modification  or  to  insert  a  new  value-type  VALUES  record. 

Called  From 


This  step  is  called  from  LABSELVAL  when  more  than  4  VALUES  records 
for  this  test  were  located  and  ACCURACY  exists. 

Screen 


LABSELVALV14 

Logic 

Retrieve  up  to  14  VALUES  records,  ordered  by  SPECIMEN; 

Number  screen  accordingly,  and  display. 

If  $DATASP  <  SDATASN, 

Issue  message:  "Press  Return  To  See  More  Records". 

If  $DATASP  -  $DATASN  and  $DATASN  >  14, 

issue  message:  "Press  Return  To  See  Prior  Records". 

If  select  record  (SWl  for  select-value  option  field)  » 

'O',  go  to  LABMENTEST. 

'n', where  n  =  $DATASP, 
go  to  LABMODVALV. 

'n'  , where  1  <_  n  £  SDATASN, 

rewind  the  LAB  TESTS  sibling  chain; 
retrieve  the  nth  record  via  $S2KC0UNT; 
go  to  LABMODVALV. 

'n', where  n  >  SDATASN, 
go  to  LABINSVALV. 


Validation 


1.  Select  value  option  field  is  optional,  numeric  if  present. 
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Exhibit  8-15:  LABSELVALV14  -  Select  Frae  14  LAB  Values 


<ssan> 

<panel> 

<code  >  <test> 


<name> 


<dob>  <sex> 

<accuracy>  <healthy> 


<method> 


select  value 


type 


case  no 


exam  no 


day 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 


specimen 
yy/mm/ dd 

/  / 

Z/Z/Z 

/  / 

Z/ZC 

/  / 

-/  /~ 

/  / 

Z/ZC 
_/_/_ 
/  / 


value 


flag 


0  none  of  the  above 


1.  All  Items  are  protected  except  select  value  option  field. 

2.  Screen  LABSELVALV14  is  Identical  to  LABSELVALV4  except 
LABSELVALV14  allows  a  choice  of  14  VALUES  records  at  a  time. 
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CiMpCer  8.19:  LABSELVALR4 

Purpose 

To  allow  the  user  to  select  existing  result-type  VALUES  record  for 
modification  or  to  insert  a  new  result-type  VALUES  record. 

Called  From 

This  step  is  called  from  LABSELVAL  when  between  1  and  4  (Inclusive) 
VALUES  records  for  this  test  were  located  and  ACCURACY  falls. 

Screen 

LABSELVALR4 

L(^lc 


1.  Retrieve  up  to  4  VALUES  records,  ordered  by  SPECIMEN; 
number  screen  accordingly,  and  display. 

2.  If  'select  record'  (SWI  for  select-result  option  field)  » 

a)  'O',  go  to  LABMENTEST. 

b)  'n' ,  where  n  »  $DATASP, 

go  to  LABMODVALR. 

c)  'n'  ,  where  1  £  n  £  $DATASN, 

rewind  the  LAB  TESTS  sibling  chain; 
retrieve  the  nth  record  via  SSZKCOUNT; 
go  to  LABMODVALR. 

d)  'n',  where  n  >  $DATASN, 

go  to  LABINSVALR. 


Validation 

1.  Select-value  option  field  -  mandatory,  numeric. 


» 


i 


i 


» 


I 


•  •  • 


•  • 
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Exhibit  8-16:  LABSELVALR4  -  Select  4  Result-Type  LAB  VALUE  Records 


<ssan> 

<panel> 

<code  >  <te8t> 


select  result 


<name> 


<dob> 


<sex> 


<accuracy>  <healthy>  <niethod> 


type  case  no  exam  no 


specimen 
yy/mm/ dd 

_  /_/_ 
/ 

_/_/z 

/  / 


result 


0  none  of  the  above 


1.  All  items  are  protected  except  select  result  option  field  (SWI  is 
select  record). 

2.  Screen  LABSELVALR4  is  identical  to  LABSELVALV4  except  two 
occurrences  of  'value'  are  replaced  with  'result'. 

3.  Screen  LABSELVALR14  and  LABSELVALV14  are  Identical  to  LABSELVALR4 
and  LABSELVALV4  respectively,  except  they  display  14  records  at  a 
time  instead  of  4. 
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Chapter  8.20:  IABSELVALR14 

Purpose 

To  allov  the  user  to  select  existing  result-type  VALUES  record  for 
modification  or  to  insert  a  new  result-type  VALUES  record. 

Called  From 


This  step  is  called  from  LABSELVAL  when  more  than  4  VALUES  records 
for  this  test  were  located  and  ACCURACY  fails. 

Screen 

LABSELVALR14 

Logic 

Retrieve  up  to  14  VALUES  records,  ordered  by  SPECIMEN; 

Number  screen  accordingly,  and  display. 

If  $DATASP  <  $DATASN, 

Issue  message:  "Press  Return  To  See  More  Records'. 

If  $DATASP  -  $DATASN  and  $DATASN  >14, 

Issue  message:  "Press  Return  To  See  Prior  Records". 

If  'select  record'  (SWI  for  select-result  option  field)  » 

'O',  go  to  LABMENTEST. 

'n', where  n  *  $DATASP, 
go  to  LABMODVALR. 

'  n'  , where  1  n  ^  $DATASN, 

rewind  the  LAB  TESTS  sibling  chain; 
retrieve  the  nth  record  via  $S2KC0UNr; 
go  to  LABMODVALR. 

'n' , where  n  >  $DATASN, 
go  to  LABINSVALR. 


Validation 


1.  Select-result  option  field  is  optional,  numeric  if  present. 


•  ••••••• 


w 
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Exhibit  8-17:  LABSELVALR14  -  Select  14  Result~Type  LAB  Values 


4 


1.  All  Items  are  protected  except  select-result  option  field. 

2.  Screen  LABSELVALR14  Is  Identical  to  LABSELVALR4  except 
LABSELVALR14  allows  a  choice  of  14  VALUES  records  at  a  time 
(result-type) . 


<ssan>  <name> 

<dob> 

<sex> 

<panel> 

<code  >  <test> 

<accurac y> 

<heal thy> 

<method> 

select  result  _ 

1 

type  case  no 

exam  no 

day 

specimen 
yy/ mm/ du 
/  / 

result 

flag 

2 

/ 

/ 

3 

/ 

/ 

4 

/ 

/ 

5 

/ 

/ 

6 

/ 

/ 

7 

/ 

/ 

8 

/ 

/ 

9 

/ 

/ 

10 

/ 

/ 

11 

/ 

/ 

12 

/ 

/ 

13 

/ 

/ 

14 

/ 

/ 

0 

none  of  the  above 
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Chapter  8.21:  LABIHSVALV 

Pur  ;iose 

To  allow  the  user  to  insert  a  numeric  test  value. 


Called 

This  step  is  entered  from  LABSPCBAT2  when  updating  by  battery, 
LABSELVAL  when  no  VALUES  records  exist,  and  LABSELVALV4  and 
LABSELVALV14  when  selection  is  made  beyond  the  list  provided. 


Screen 

LABINSVALV 


Logic 

In  Phase  1: 


IF  SPECIMEN  (SWI)  exists.  Note:  SPECIMEN  was  made  null 

continue.  in  the  LABMENPERS  step. 

ELSE 

set  SPECIMEN  -  $DATE; 

If  SPECIMEN  2  C33  and  SPECIMEN  <  (C33  +  30), 
set  TYPE  -  C29,  CASENO  -  C30,  EXAMNO  =•  C31; 

If  SPECIMEN  >  (C33  +  30), 
blank  TYPE,  CASENO. 


Note:  To  calculate  C33  +  30,  increment 
the  month  from  C33  by  1. 

Blank  VALUE,  RESULT,  FLAG,  COMMENT,  insert-value  option  field. 


In  Phase  2: 

Display  screen. 
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IF  insert-record  option  field  *  M, 

If  SELECTBAT  fails,  (came  from  labselval) 

go  to  LABSELVAL; 

Else  (came  from  labspcbat) 

go  to  LABSPCBAT2  (RETURN-FROM-LOWER-LEVEL-STSPS-POINT)  . 

IF  insert-record  option  field  “  Y, 

If  CASE  NO  <  LATEST  CASE  NO, 

issue  msg:  "OLD  DATA  CAN  ONLY  BE  ENTERED  BY  NGS"; 
go  to  phase  2. 

If  CASE  NO  -  LATEST  CASE  NO, 

If  SPECIMEN  >  latest  SPECIMEN  +  30, 

Issue  msg:  "MORE  THAN  30  DAYS  SINCE  LAST  ENTRY 
FOR  THIS  CASE  NO"  and  go  Co  phase  2. 

If  SPECIMEN  <  LATEST  SPECIMEN. 

Issue  msg:  "OLD  DA” A  CAN  ONLY  BE  ENTERED  BY  NGS"; 
go  to  phase  2. 

If  TYPE  i  LATEST  TYPE, 

issue  msg:  "TYPE  DIFFERS  FROM  LAST  ENTRY"; 
go  to  phase  2. 

If  SPECIMEN  >  LATEST  SPECIMEN, 

set  LATEST  DAY  =  LATEST  DAY  +  1 ; 

If  CASE  NO  >  LATEST  CASE  NO, 

If  SPECIMEN  _<  LATEST  SPECIMEN, 

issue  msg:  "CASE  NO  INCONSISTENT  WITH  LAST  ENTRY"; 
go  to  phase  2. 

Set  LATEST  TYPE  -  TYPE;  LATEST  CASE  NO  »  CASE  NO; 

LATEST  EXAM  NO  »  LATEST  EXAM  NO  +  1;  LATEST  DAY  »  1 ; 
Set  LATEST  SPECIMEN  »  SPECIMEN. 

Set  EXAM  NO  -  LATEST  EXAM  NO;  DAY  =  LATEST  DAY;  LATEST  EXAM  = 
If  COMMENT  occurrence  1  or  occurrence  2  exist, 
set  FLAG  “  9  (overwriting  any  other  flag). 

If  VALUE  fails  and  FLAG  fails,  (no  value,  flag,  or  comment) 
ring  bell,  issue  message: 

"NO  DATA  TO  INSERT"; 
go  to  Phase  2. 

If  VALUE  exists. 

If  VALUE  <  AMIN  or  VALUE  >  AMAX,  (extreme  value) 

ring  bell,  issue  message: 

"EXTREME  VALUE  -  CALL  LAB  CHIEF  STAT"; 
go  to  Phase  2. 

If  FLAG  fails  and  (VALUE  <  HMIN  or  VALUE  >  HMAX), 
set  FLAG  =■  1. 
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Phase  3  Logic  (continued) 

Retrieve  last  VALUES  record. 

Insert  VALUES  record  after.  (insert  values  record) 

If  COMMENT  occurrence  1  exists, 
move  COMMENT  to  C28; 

append  COMMENTS  record;  (add  comments  record) 

If  COMMENT  occurrence  2  exists, 
move  COMMENT  to  C28; 
append  COMMENTS  record. 

Set  UNREPORTED  DATA  -  Y. 

If  FLAG  -  7  and  TESTS  PENDING  fails, 
set  TESTS  PENDING  »  0. 

If  FLAG  -  7, 

set  TESTS  PENDING  -  TESTS  PENDING  +  1. 

Modify  PERSON  record. 

Retrieve  last  VALUES  record, 
go  to  LABMODVALV. 

Validation 


1.  Insert  value  option  field  -  mandatory,  table  (YESNOTBL, 
exists) . 

2.  TYPE  -  mandatory,  table(TYPETBL,  exists). 

3.  CASE  NO  -  mandatory,  range  1  -  25,000. 

4.  SPECIMEN  -  date,  range  1  Jan  57  to  $T0DAY. 

5.  VALUE  -  range  (0  -  999,999.999). 

6.  FLAG  -  table  (LABINSFLAGTBL  -  1,  2,  3,  7,  9). 

Note:  For  technician's  view,  '8'  is  not  a  valid  FLAG  at  Insert 
time.  For  the  Chief's  view,  LABMODFLAGTBL  is  used  (see  LABMODVALV) 
to  validate  flag  at  Insert. 
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Exhibit  8-18:  LABIISVALV  -  Insert  Value-Type  Values  Record 


<S8an>  <name> 

<  panel> 

<code>  <te8t> 


ln8ert  value  _ 
type  case  no 

coament 


specimen 

yy/mm/dd 


/  / 


<dob>  <sex> 

<healthy> 


value  flag 


_ (72  chars) 

comment 

_ (72  chars) 


1.  First  three  rows  are  protected. 

2.  Screen  LABINSVALV  Is  identical  to  LABINSVALR  except  the  two 
literals  of  'value'  are  replaced  with  'result',  and  both  the 
literal  'decimals*  and  the  DBI  for  decimals  (ACCURACY)  are 
deleted. 

3.  Screens  LABMODVALV  and  LABMODVALR  are  identical  to  LABINSVALV  and 
LABINSVALR  respectively,  except  'insert'  is  replaced  with 
'modify' . 
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Chapter  8.22:  LABIKSVALR 

Purpose 

To  allow  the  user  to  Insert  an  alphanumeric  test  result. 

Called  From 

This  step  Is  entered  from  LABSPCBAT2  when  updating  by  battery, 
LABSELVAL  when  no  result-type  VALUES  records  exist,  and  LABSELVALR4 
and  LABSELVALR14  when  selection  is  made  beyond  the  list  provided. 

Screen 

LABINSVALR. 

Logic 

In  Phase  1: 

IF  SPECIMEN  (SWI)  exists.  Note:  SPECIMEN  was  made  null 

continue.  In  the  LABMENPERS  step. 

ELSE 

set  SPECIMEN  -  $DATE; 

If  SPECIMEN  >  C33  and  SPECIMEN  _<  (C33  +  30), 
set  TYPE  -  C29,  CASENO  =•  C30; 

If  SPECIMEN  >  (C33  +  30), 
blank  TYPE,  CASENO. 


Note:  To  calculate  C33  +  30,  increment 
the  month  frran  C33  by  1. 

Blank  VALUE,  RESULT,  FLAG,  COMMENT,  insert-result  option  field. 

In  Phase  2: 

Display  screen. 

In  Phase  3: 

IF  insert-record  option  field  =  N, 

If  SELECTBAT  falls,  (came  from  labselval) 

go  to  LABSELVAL; 

Else  (came  from  labspcbat) 

go  to  LABSPCBAT2 

(RETURN-FROM-LOWER-LEVEL-STEPS-POINT ) . 

.pa 

Phase  3  Logic  (continued) 

IF  insert-result  option  field  •  Y, 

If  CASE  NO  <  LATEST  CASE  NO, 

issue  msg:  "OLD  DATA  CAN  ONLY  BE  ENTERED  BY  NGS"; 
go  to  phase  2. 

If  CASE  NO  -  LATEST  CASE  NO, 

If  SPECIMEN  >  LATEST  SPECIMEN  +  30, 

issue  msg;  "MORE  THAN  30  DAYS  SINCE  LAST  ENTRY 
FOR  THIS  CASE  NO”  and  go  to  phase  2. 
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If  SPECIMEN  <  LATEST  SPECIMEN, 

issue  msg:  “OLD  DATA  CAN  ONLY  BE  ENTERED  BY  NGS"; 
go  to  phase  2. 

If  TYPE  i  LATEST  TYPE, 

issue  msg:  “TYPE  DIFFERS  FROM  LAST  ENTRY”; 
go  to  phase  2. 

If  SPECIMEN  >  LATEST  SPECIMEN, 

set  LATEST  DAY  -  LATEST  DAY  +  1; 

If  CASE  NO  >  LATEST  CASE  NO, 

If  SPECIMEN  £  LATEST  SPECIMEN, 

issue  msg:  “CASE  NO  INCONSISTENT  WITH  LAST  ENTRY”; 
go  to  phase  2. 

Set  LATEST  TYPE  »  TYPE;  LATEST  CASE  NO  -  CASE  NO; 

LATEST  EXAM  NO  »  LATEST  EXAM  NO  +  1;  UTEST  DAY  -  1; 

Set  LATEST  SPECIMEN  -  SPECIMEN. 

Set  EXAM  NO  -  LATEST  EXAM  NO;  DAY  -  LATEST  DAY;  LATEST  EXAM  -  Y. 


If  COMMENT  occurrence  I  or  occurrence  2  exist, 
set  FLAG  “9. 

If  RESULT  fails  and  FLAG  falls(no  result ,f lag , or  comment), 
ring  bell,  issue  message:  "HO  DATA  TO  INSERT"; 
go  to  Phase  2. 

If  RESULT  -  N, 

set  RESULT  »  HEALTHY. 

If  RESULT  »  A  and  HEALTHY  =  NORMAL, 
set  RESULT  »  ABNORMAL. 

If  RESULT  -  P  and  HEALTHY  =  NEGATIVE, 
set  RESULT  -  POSITIVE. 

If  RESULT  -  T  and  HEALTHY  -  NEGATIVE, 
set  RESULT  -  TRACE. 

If  HEALTHY  exists  and  FLAG  fails  and  HEALTHY  f  RESULT, 
set  FLAG  >■  1. 
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Phase  3  Logic  (continued) 

Retrieve  last  VALUES  record. 

Insert  VALUES  record  after.  {add  result-type  values  record) 

If  COMMENT  occurrence  1  exists, 
move  COMMENT  to  C28; 

append  COMMENTS  record;  (add  comments  record) 

If  COMMENT  occurrence  2  exists, 
move  COMMENT  to  C28; 
append  COMMENTS  record. 

Set  UNREPORTED  DATA  -  Y. 

If  FLAG  =»  7  and  TESTS  PENDING  falls, 
set  TESTS  PENDING  -  0. 

If  FLAG  -  7, 

set  TESTS  PENDING  -  TESTS  PENDING  +  1. 

Modify  PERSON  record. 

Retrieve  last  VALUES  record, 
go  to  LABMODVALR. 

Validation 


1.  Insert  result  option  field  -  mandatory,  table  (YESNOTBL, 
exists) . 

2.  FLAG  -  table  (LABINSFLAGTBL) . 
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Exhibit  8-19:  LABnSVAlil  -  Insert  Result-Type  Values  Record 


<ssan>  <name> 

<panel> 

<code>  <test> 


<dob>  <sex> 

<healthy> 


Insert  result  _ 
type  case  no 


specimen  result  flag 

yy/mm/dd 

/  / 


i 


i 


comment 


_ (72  chars) 

coimnent 

_ (72  chars) 


i 


1.  First  three  rows  are  protected. 

2.  Screen  LABINSVALR  Is  Identical  to  LABINSVAI.V  except  the  two 

literals  of  'result'  are  replaced  with  'value',  and  both  the  • 

literal  'decimals'  and  the  DBI  for  decimals  (ACCURACY)  are  added. 

3.  Screens  LABMODVALR  and  LABMODVALV  are  identical  to  LABINSVALR  and 
LABINSVALV  respectively,  except  'insert'  is  replaced  with 
'modify' . 


•  • 


•  • 
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Chapter  8.23:  LABfODVALV 

Purpose 

To  allow  the  user  to  modify  an  existing  value-type  VALUES  record. 
Called  From 

This  step  is  called  from  LABSPCBAT2,  LABSELVALV4,  LABSELVALV14,  and 
LABINSVALV. 

Screen 

LABMODVALV. 

Logic 

Blank  modify-value  option  field. 

Set  OLDVALUE  -  VALUE,  OLDFLAG  -  FLAG, 

OLDCOMMEOTl  *  COMMENT  first  occurrence,  0LDC0MMENT2  =  COMMEOT 
second  occurrence. 

Retrieve  two  COMMENTS  records.  Display  screen. 

IF  modify-value  option  field  »  N, 

If  SELECTBAT  fails,  (came  from  labselval) 

go  to  LABMENTEST. 

Else  (came  from  labspcbat) 

go  to  LABSPCBAT2 

(RETURN-FROM-LOMER-LEVEL-STE PS -POINT ) . 
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IF  modlfy-value  option  field  »  Y, 

If  OLDFLAG  -  8, 
ring  bell: 

issue  message:  “CALL  LAB  CHIEF  TO  MODIFY  DATA"; 
go  to  phase  2. 

If  OLOVALUE-VALUE ,  OLDFLAG-FLAG,  OLDCOMMEOTl -COMMENT  occurrence! 
and  0 L DC OMMEMT 2 -COMMENT  occurrence2, 
issue  message:  "NO  DATA  TO  MODIFY", 
go  to  Phase  2. 

If  FLAG-9,  COMMENT  occurrencel-null  and  COMMENT  occurrence2-null , 
blank  FLAG. 

If  VALUE  fails  and  FLAG  fails, 
go  to  phase  2. 

If  VALUE  exists. 

If  VALUE  K.  AMIN  or  VALUE  ^  AMAX,  (extreme  value) 

ring  bell,  issue  message: 

"EXTREME  VALUE  -  CALL  LAB  CHIEF  STAT"; 
go  to  Phase  2. 

If  FLAG  fails  and  (VALUE  <  HMIN  or  VALUE  >  HMAX), 
set  FLAG  -  1. 

If  OLDVALUE  j*  VALUE  or  OLDFLAG  ^  FLAG, 
modify  VALUES  record. 

If  OLDCOMMENTl  exists  and  OLDCOMMENTl  ^  COMMENT  occurrence!, 
modify  first  COMMENTS  record. 

If  OLDC01MENr2  exists  and  0LDC0MMENr2  #  COMMENT  occurrence2, 
modify  second  COMMENTS  record. 

If  OLDCOMMENTl  falls  and  COMMENT  occurrence  1  exists, 
append  first  COMMENTS  record. 

If  0LDC0MMENT2  falls  and  COMMENT  occurrence  2  exists, 
append  second  COMMENTS  record. 

If  FLAG  -  7, 

If  TESTS  PENDING  falls, 
set  TESTS  PENDING  -  0; 

Set  TESTS  PENDING  -  TESTS  PENDING  +  1. 

If  OLDFLAG  -  7  and  FLAG  ¥  7, 

set  TESTS  PENDING  -  TESTS  PENDING  -  1. 

If  TESTS  PENDING  -  0, 
remove  TESTS  PENDING. 

If  SELECTBAT  exists, 

go  to  LABSPCBAT2  (RETURN-FROM-LOWER-LEVEL-STEPS-POINT ) . 

Else, 

go  to  LABMENTEST. 

Validation 

Modify-value  option  field  -  mandatory,  table(YESNOTBL, exists) . 
VALUE  -  range  (0  -  999,999.999). 

FLAG  -  table(LABMODFLAGTBL  -1,  2,  3,  7,  8,  9). 
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< 


Exhibit  8-20:  LABfOOVALV  -  Modify  Value-Type  Values  Record 


<ssan> 

<  panel> 
<code> 


<name> 


<te8t> 


<dob>  <sex> 

<healthy> 


modify  value  _ 
type  case  no 


comment 


spec iraen 
yy/mm/ dd 
/  / 


(72  chars) 


value 


flag 


coaraent 


(72  chars) 


» 


1.  First  three  rows  are  protected. 

2.  Screens  LABMODVALV  and  LABMODVALR  are  identical  to  LABINSVALV  and 
LABINSVALR  respectively,  except  'insert'  is  replaced  with 
'modify' . 

3.  TYPE,  CASE  NO,  and  SPECIMEN  are  all  protected  fields. 


•  ••••••• 
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Chapter  8.24:  LAMODVALR 

Purpose 

To  allow  the  user  to  modify  an  existing  result-type  VALUES  record. 

Called  From 

This  step  Is  called  from  IABSPCBAT2,  LABSELVALR4,  LABSELVALR14,  and 
LABINSVALR. 


Screen 

LABMODVALR. 

Logic 

Blank  modlfy-result  option  field. 

Set  OLDRESULT  -  RESULT,  OLDFLAG  =  FLAG,  OLDCOMMEMTl  -  COMMENT 
occurrence!,  0LDC0MMENT2  *  COMMENT  occurrence2. 

Retrieve  two  COMMENTS  records. 

Display  screen. 

IF  modlfy-result  option  field  =»  N, 

If  SELECTBAT  falls,  (came  from  labselval) 

go  to  LABMEOTEST. 

Else  (came  from  labspcbat) 

go  to  LABSPCBAT2  (RETURN-FROM-LOWER-LEVEL-STEPS-POINT) . 
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IF  modify-result  option  field  *  Y, 

If  OLDRESULT-RESULT,  OLDFLAG-FLAG,  OLDCOMMEOTl -COMMENT  occurrence! 
and  OLDCOMMENT 2-COMMENT  occurrence2. 

Issue  message:  "NO  DATA  TO  MODIFY", 
go  to  Phase  2. 

If  FLAG-9,  COMMENT  occurrencel-null  and  COMMFNT  occurrence2“nulI , 
blank  FLAG. 

If  RESULT  falls  and  FLAG  falls  and  both  comments  fall, 
go  to  phase  2. 

If  OLDRESULT  +  RESULT  or  OLDFLAG  i  FLAG, 
modify  VALUES  record. 

If  OLDCOMMEMTl  exists  and  OLDCOMMENTl  ^  COMMENT  occurrence!, 
modify  first  COMMENTS  record. 

If  0LDC0MMENr2  exists  and  0LDC0MMENr2  ^  COMMENT  occurrence2, 
modify  second  COMMENTS  record. 

If  OLDCOMMENTl  falls  and  COMMENT  occurrence  !  exists, 
append  first  COMMENTS  record. 

If  0LDC0MMENr2  falls  and  COMMENT  occurrence  2  exists, 
append  second  COMMENTS  record. 

If  FLAG  -  7, 

If  TESTS  PENDING  falls, 
set  TESTS  PENDING  -  0; 

Set  TESTS  PENDING  -  TESTS  PENDING  +  !. 

If  OLDFLAG  -  7  and  FLAG  i  7, 

set  TESTS  PENDING  -  TESTS  PENDING  -  !. 

If  TESTS  PENDING  -  0, 
remove  TESTS  PENDING. 

If  SELECTBAT  exists, 

go  to  LABSPCBAT2  (RETURN-FROM-LOWER-LEVEL-STEPS-POINT ) . 

Else, 

go  to  LABMENTEST. 

Validation 

Modify-result  option  field  -  mandatory,  table  (YESNOTBL,  exists). 
RESULT  -  range  (0  -  999,999.999). 

FLAG  -  table  (LABMODFLAGTBL  -  1,  2,  3,  7,  9). 


B 


B 


B 


B 


B 


B 


B 


•  •  •  • 


•  •  •  '  • 

- . - .  -  •  . — . ---  ■' 


r 


%> 
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Exhibit  8-21:  LABIODVALR  -  Modify  Result-Type  Values  Record 


9 


i 


1 


I 


<ssan>  <nanie> 

<panel> 

<code>  <te8t> 


<dob>  <sex> 

<healthy> 


I 


modify  result  _ 
type  case  no 


specimen  result  flag 

yy/mm/dd 

/  / 


t 


comment 


(72  chars) 


comment 


(72  chars) 


i 


1.  First  three  rows  are  protected. 

2.  Screens  LABMODVALV  and  lABMODVALR  are  identical  to  LABINSVALV  and 
LABINSVALR  respectively,  except  'insert'  is  replaced  with 
'modify' . 


•  • 


i 
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» 


Chapter  8.25:  UJMODPBRS 

Purpose 

To  allow  user  to  modify  a  patient's  active  status. 

Called  From 
LABMENPERS 

Screen 

LABMODPERS 

Logic 

1.  Display  screen. 

2.  IF  modify  record  option  field  =  N, 

go  to  LABMENPERS. 

3.  IF  modify  record  option  field  =*Y, 

If  ACTIVE  Is  null, 
set  ACTIVE  -  Y; 

Else 

remove  ACTIVE. 

4.  Modify  PERSON  record,  then  go  to  phase  2. 

go  to  Phase  2. 

Validation 

Modify  record  option  field  mandatory,  table  (YESNOTBL, exists) . 


i 


•  •  • 


•  • 
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Exhibit  8-22:  LABMODPBRS  -  Modify  Patient’s  Active  Status 


<ssan>  <name>  <dob>  <sax>  <!race> 

active  _ 

change  active  status 


1.  First  two  rows  are  protected 
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APPENDIX  A; 


•  • 
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BATTERY  DATA  BASE 


I 


► 


•  w 


9 
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BATTERY  Data  Base  Definition 


Definition: 


0*  BATTERIES: 

1*  BAT  NUM  (INT99): 

2*  BATTERY  (NK  CHAR  X(34)): 

10*  TESTS  (SR): 

11*  CODE  (CHAR  XXX  IN  10): 

12*  TEST  (CHAR  X(24)  IN  10): 

13*  ACCURACY  (NK  INT  9  IN  10): 

14*  HEALTHY  (NK  CHAR  X(13)  IN  10): 

15*  HMIN  (NK  DEC  9(6). 999  IN  10): 

16*  HMAX  (NK  DEC  9 (6). 999  IN  10): 

17*  AMIN  (NK  DEC  9(6), 999  IN  10); 

18*  AMAX  (NK  DEC  9 (6). 999  IN  10): 

19*  PANEL  (NK  CHAR  X(37)  IN  10): 

20*  METHOD  (NK  CHAR  X(6)  IN  10): 

1.  The  LABTESTS  data  base  shall  be  populated  with  the  data  which 
follows . 


f 
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Battery  Reference  to  Teats 


HEMOTOLOGY  BATTERY 


Example: 

PATIENT;  BURDELL  GEORGE  P.  FILE:  M12345.01 
COMMAND  >  BATTERY  01 


CONTENTS : 

TEST 

AA  HEMATOCRIT 

AB  HEMOGLOBIN 

AC  RBC 

AD  MCV 

AE  MCH 

AF  MCHC 

AG  WBC 

CA  SEDIMENTATION  RATE 

AH  NEUTROPHILS 

AI  BANDS 

AJ  LYMPHOCYTES 

AK  MONOCYTES 

AL  MOSINO PHILS 

AM  BASOPHILS 

OA  PLATELET  COUNT 

BA  RETICULOCYTE  COUNT 

AH  TOTAL  EOSINOPHIL  COUNT 

AO  RBC  MORPHOLOGY 

AP  LYMPHOCYTE  MORPHOLOGY 

AQ  ATYPICAL 

AR  MONOCYTE  MORPHOLOGY 

AS  NEUTROPHIL  MORPHOLOGY 

AT  MONO  SPOT  TEST 

OB  PROTHROMBIN  TIME  1.  PAT 

OC  2.  CON 

OD  PART  THROMB  TIME  1.  PAT 

OE  2.  CON 
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AUTOANALYZER 


Example: 

PATIENT:  BURDELL  GEORGE  P.  FILE: 
COMMAND  >  BATTERY  02 


CONTENTS : 

TEST 

CB  HAPTOGLOBIN 

CC  TOTAL  PROTEIN 

EE  EXCRETORY  2.BILI  TOT 

FP  CREATININE 

HC  INORGANIC  PHOSPHOROUS 

lA  SODIUM 

IB  POTASIUM 

ID  CHLORIDE 

IC  C02 

HE  SERUM  MAGNESIUM 


BATTERY 


M12345.01 
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ENZYMOLOGY  BATTERY 


■/ 


♦ 


Example: 

PATIENT:  BURDELL  GEORGE  P.  FILE:  M12345.01 
COMMAND  >  BATTERY  03 


CONTENTS; 

TEST 

CJ 

LDH 

EA 

PARENCHYMAL  l.SGPT 

EB 

2. SCOT 

ED 

EXCRETORY 

l.ALK  PHOS 

EG 

4.GGTP 

GC 

CPK 

EF 

EXCRETORY 

3.BILI  DIR 

FO 

BUN 

IE 

URIC  ACID 

HA 

CALCIUM 

ZA 

aUCOSE  TOLERANCE 

•  •  •  • 


•  • 
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ELECTROPHORESIS  BATTERY 


Example: 


PATIENT:  BURDELL  GEORGE  P.  FILE:  M12345.01 
COMMAND  >  BATTERY  04 


CONTEOTS : 

CC  TOTAL  PROTEIN 

CD  SERUM  PROTEIN  ELECTRO 

CE  1.  ALBUMIN 

CF  2.  ALPHA  1  GLOBULIN 

CG  3.  ALPHA  2  GLOBULIN 

CH  4,  BETA  GLOBULIN 

Cl  5.  GAMMA  GLOBULIN 

BB  LDH  FRACTION  I 

EC  PARENCHYMAL  3.  LDH  V 

LB  HEMOGLOBIN  ELECTRO 

LC  1.  HEMOGLOBIN  A-1 

LD  2.  HEMOGLOBIN  A-2 

LE  3.  HEMOGLOBIN  -  OTHER 
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LIPIDS  BATTERY 


Example: 


OATIENT:  BURDELL  GEORGE  P.  FILE:  M12345.01 
COMMAND  >  BATTERY  05 


CONTENTS : 

TEST 

DA  CHOLESTEROL 

DB  HDL  CHOLESTEROL 

DC  TRIGLYCERIDE 

DD  PHOSPHOLIPIDS  OMIT 

DE  TOTAL  LIPIDS  OMIT 
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URINALYSIS  BATTERY 


» 


Example: 

PATIENT:  BURDELL  GEORGE  P.  FILE:  M12345.01 
COMMAND  >  BATTERY  06 


CONTENTS: 

TEST 

FA 

COLOR 

FB 

SPECIFIC  GRAVITY 

FC 

PH 

FD 

PROTEIN 

FE 

GLUCOSE 

FF 

ACETONE 

FG 

BLOOD 

FH 

BILE 

FI 

MICRO  1.  CASTS  A. 

HYALNE 

FJ 

B. 

F  GRAN 

FK 

C. 

OTHER 

FL 

2.  WBC 

FM 

3.  RBC 

FN 

4.  OTHER 

FR 

CULTURE 

SA 

OCCULT  BLOOD  STOOL 

ZB 

GLUCOSE  TOLERANCE 

(URINE 

» 


» 


i 


» 


•  •  • 
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24  HR  URINE  BATTERY 


» 


Example: 

PATIENT:  BURDELl  'EORGE  P.  FILE:  M12345.01 
COMMAND  >  BATTERY  07 


» 


CONTENTS : 

TEST 

FQ 

CREATININE  CLEARANCE 

FS 

24 

HR 

URINE 

PROTE IN 

FT 

24 

HR 

URINE 

TOTAL  VOLUME 

IF 

24 

HR 

URINE 

URIC  ACID 

IG 

24 

HR 

URINE 

TOTAL  VOLUME 

HD 

24 

HR 

URINE 

PHOSPHOROUS 

HE 

24 

HR 

URINE 

CALCIUM 

HF 

24 

HR 

URINE 

MAGNESIUM 

HG 

24 

HR 

URINE 

TOTAL  VALUME 

» 


I 


t 


•  •  • 


•  • 
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THREE  GLASS  URINALYSIS  BATTERY 


ExaTiple; 


PATIENT:  BURDELL  GEORGE  P.  FILE:  M12345.01 
COMIIAND  >  BATTERY  08 


CONTENTS: 

TEST 

WA 

COLOR 

WB 

SPECIFIC  GRAVITY 

WC 

PH 

WD 

PROTEIN 

WE 

GLUCOSE 

WF 

ACETONE 

WG 

BLOOD 

WH 

BILE 

WI 

MICRO  -  G1  1.  CASTS 

HYALNE 

WJ 

FGRAN 

WK 

OTHER 

WL 

2.  WBC 

WM 

3.  RBC 

WN 

4.  OTHER 

WO 

CULTURE  -  GLASS  1 

24  HR 

XA 

MICRO  -  G2  1.  CASTS 

HYALNE 

XB 

FGRAN 

XC 

OTHER 

XD 

2.  WBC 

XE 

3.  RBC 

XF 

4.  OTHER 

XG 

CULTURE  -  GLASS  2 

24  HOUR 

XI 

MICRO  -  G3  1.  CASTS 

HYALNE 

XJ 

FGRAN 

XK 

OTHER 

XL 

2.  WBC 

XM 

3.  RBC 

XN 

4.  OTHER 

XO 

CULTURE  -  GLASS  3 

24  HR 
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MISCELLANEOUS 


Example: 

PATIENT:  BURDELL  GEORGE  P.  FILE: 
COMMAND  >  BATTERY  09 


CONTENTS : 

TEST 

PA  RHEUMATOID  FACTOR 

PB  ANTINUCLEAR  ANTIBODY 

OF  BLEEDING  TIME 

OG  CLOTTING  TIME 

OH  FIBRINOGEN 

KA  THPOAT 

YC  VMA 

YD  17  KETOSTEROIDS 

YE  HYDROXYCARTIGOSTEROIDS 

YO  24  HR  URINE  TOTAL  VOLUME 

MA  URINE  OSMOLALITY 

MB  SERUM  OSMOLALITY 

MC  24HR  URINE  TOTAL  VOLUflE 

ZE  SERUM  COPPER  FBS  TO  5HR 

ZF  SERUM  ZINC  FBS  TO  5  HR 


BATTERY 


M12345.01 
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•k 


THYROID  PROFILE  BATTERY 

Example: 

PATIENT:  BURDELL  GEORGE  P.  FILE:  M12345.01 
COMMAND  >  BATTERY  10 


♦ 


CONTENTS : 
TEST 

KA  T36 

KB  T4 

KC  FTl 

KD  TSH 


» 


» 


B 


» 


•  • 


•  •  • 


•  • 


« 


I 


I 
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BATTERY  Data  Base  Data  -  Rules  for  Each  Test 


Phase  2 

Phase  3 

Phase  2 

Healthy 

Test  Name 

Code 

MIN 

MIN 

MAX 

MAX 

HEMATOCRIT 

SA 

30 

38 

52 

60 

% 

HEMOGLOBIN 

AB 

0 

12.8 

17.8 

20 

GM 

RBC 

AC 

3 

4.1 

6.1 

8 

M/CCM% 

MCV 

AD 

60 

80 

98 

110 

CU 

MCH 

AE 

20 

26 

34 

45 

PG  * 

MCHC 

AF 

20 

27 

37 

45 

Z 

MBC 

AG 

2000 

3600 

10600 

18000 

CMM 

NEUTROPHILS 

AH 

10 

40 

75 

95 

% 

BANDS 

AI 

0 

0 

4 

10 

% 

LYMPHOCYTES 

AJ 

5 

15 

50 

90 

•y 

MONOS 

AK 

0 

0 

12 

25 

Z 

EOS 

AL 

0 

0 

6 

25 

Z 

BASOS 

AM 

0 

0 

1 

10 

V 

>9 

TOTAL  EOSINOPHIL  COUNT 

AN 

50 

150 

400 

1000 

CIM 

RBC  MORPHOLOGY 

AO 

N 

A 

-2 

1 

LYMPHOCYTE  MORPHOLOGY 

AP 

N 

A 

-2 

L 

ATYPICAL  LYMPHOCYTES 

AQ 

0 

0 

20 

90 

7, 

MONOCYTE  MORPHOLOGY 

AR 

N 

A 

-2 

1 

NEUTROPHIL  MORPHOLOGY 

AS 

N 

A 

-2 

1 

MONO  SPOT  TEST 

AT 

N 

P 

-2 

2 

RETICULOCYTE  COUNT 

BA 

0 

0.2 

1.5 

9 

7, 

LDH  FRACTION  I 

BB 

10 

11 

32 

50 

7. 

INDIRECT  BILIRUBIN 

BC 

.1 

.4 

.8 

5.0 

MG% 

G-6-PDH 

BD 

.5 

5 

10 

50 

lU 

SEDIMENTATION  RATE 

CA 

0 

0 

10 

60 

MM/ HR 

HAPTOGLOBIN 

CB 

10 

20 

270 

600 

MG7, 

TOTAL  PROTEIN 

CC 

4 

6 

8.3 

9.5 

GM% 

SERUM  PROTEIN  ELECTRO 

CD 

N 

A 

-2 

1 

ALBUMIN 

CE 

3.3 

4.1 

5.3 

6.3 

GHZ 

2.  ALPHA  1  GLOBULIN 

CF 

.19 

.20 

.40 

.5 

GM% 

3.  ALPHA  2  GLOBULIN 

CG 

.15 

.4 

.8 

1.3 

GM7. 

4.  BETA  GLOBULIN 

CH 

.3 

.6 

1.2 

1.5 

GM7. 

5.  GAMMA  GLOBULIN 

Cl 

.3 

.6 

1.5 

2.4 

GHZ 

LOH 

CJ 

50 

115 

217 

1500 

lU 

CHOLESTEROL 

DA 

0 

0 

250 

1000 

MG  7. 

HDL  CHOLESTEROL 

D8 

20 

25 

200 

200 

MG7. 

TRIGLYCERIDE 

DC 

0 

0 

150 

3000 

MG% 

PHOSPHOLIPIDS 

DD 

0 

0 

300 

1000 

MG7. 

TOTAL  LIPIDS 

DE 

0 

0 

850 

3500 

MG% 

PARENCHYMAL  1.  SGPT 

EA 

0 

0 

40 

300 

lU 

PARENCHYMAL  2.  SCOT 

EB 

4 

11 

32 

250 

lU 

PARENCHYMAL  3.  LDH  V 

SC 

0 

3 

11 

35 

% 

EXCRETORY  1.  ALK  PHOS 

ED 

5 

10 

75 

300 

lU 
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Phase  2  Phase  3  Phase  2 
Healthy 


Test  Name 

Code 

MIN 

MIN 

MAX 

MAX 

EXCRETORY  2.  BILI  TOT 

EE 

0 

.1 

1.2 

4.0 

MG% 

EXCRETORY  3.  BILI  DIR 

EF 

0 

0 

.4 

2 

MG% 

GGTP 

EG 

2 

5 

43 

300 

lU 

ALK  PROS  HEAT  TNACT 

EH 

N 

A 

-2 

1 

COLOR 

FA 

N 

A 

-2 

1 

SPECIFIC  GRAVITY 

FBI. 

,001 

1.010 

1.035 

1.050 

PH 

FC 

3 

5 

7 

10 

PROTEIN 

FD 

N 

T 

-3 

0 

GLUCOSE 

FE 

N 

T 

-3 

1 

ACETONE 

FF 

N 

T 

-3 

1 

i. 

BLOOD 

FG 

N 

T 

-3 

1 

BILE 

FH 

N 

T 

-3 

1 

MICRO  1. CASTS  A. HYALINE 

FI 

0 

0 

2 

110 

/LPF 

MICRO  1. CASTS  B. GRAIN 

FJ 

0 

0 

2 

110 

A.PF 

MICRO  1. CASTS  C. OTHER 

FK 

N 

? 

-3 

9301 

MICRO  2.  WBC 

FL 

0 

0 

3 

300 

/HPF 

MICRO  3.  RBC 

0 

0 

2 

500 

/HPF 

MICRO  4.  OTHER 

FN 

N 

P 

-3 

0323 

BUN 

FO 

4 

5 

24 

35 

MG% 

CREATININE 

FP 

.1 

.9 

1.3 

2.5 

MG% 

CREATININE 

FQT 

30 

97 

137 

170 

CC/MIN 

CULTURE 

FR 

N 

-5 

9345 

, 

24HR  URINE  PROTEIN 

FS 

0 

6 

150 

600 

MG 

24HR  URINE  TOT  VOL 

FT 

300 

600 

1600 

4000 

ML/24HR 

RPR 

GA 

N 

P 

-2 

2 

BLOOD  GROUP-RH  FACTOR 

GB 

A+ 

0- 

-4 

CPK 

GC 

5 

26 

109 

600 

lU 

SERUM  CALCIUM 

HA 

8 

8.8 

10.3 

12.2 

MG% 

24HR  URINE  CALCIUM 

HBG 

30 

50 

300 

800 

MG/24HR 

INORGANIC  PHOSPHORUS 

HC 

1.0 

2.4 

4.6 

8.0 

MG% 

PHOSPHORUS  CLEARANCE 

HD 

0 

5 

15 

30 

ML /MIN 

SERUM  MAGNESIUM 

HE 

1.5 

1.8 

2.4 

3.0 

MG% 

24HR  URINE  MAGNESIUM 

HFG 

30 

60 

300 

500 

MG/24HR 

24HR  URINE  TOT  VOL 

HG 

300 

600 

1600 

4000 

ML/24HR 

SODIUM 

lA 

120 

136 

145 

160 

MEQ  /L 

POTASSIUM 

IB 

2.0 

3.5 

4.6 

6.0 

MEQ/L 

CO  2 

IC 

10 

19 

30 

40 

MEQ/L 

CL 

ID 

80 

99 

110 

130 

MEQ/L 
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* 
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Phase  2  Phase  3  Phase  2 
Meal  thy 


Test  Name 

Code 

MIN 

MIN 

MAX 

MAX 

URIC  ACID 

IE 

.5 

2.0 

8.0 

12.0 

MG% 

24HR  URINE  URIC  ACID 

IFG 

150 

250 

750 

1300 

MG/24HR 

24HR  URINE  TOT  VOL 

IG 

300 

600 

1600 

4000 

ML/24HR 

MALARIAL  SMEAR 

JA 

N 

P 

-2 

Z. 

RED  CELL  1.  PAT-INIT 

JB 

.3 

.4 

.46 

,6 

%  * 

RED  CELL  2.  PAT-FINAL 

JC 

.2 

.3 

.36 

.5 

%  * 

RED  CELL  3.  CNTL-INIT 

JD 

.3 

.4 

.46 

.6 

7.  * 

RED  CELL  4.  CNTL -FINAL 

JE 

.2 

.3 

.36 

.5 

1  * 

NASAL  SMEAR  FOR  EOS 

JF 

N 

P 

-2 

2 

T3  UPTAKE 

KA 

0 

35 

45 

100 

% 

T4  RIA 

KB 

0 

5.5 

11.5 

75 

MCG/DL 

TSH  RIA 

KC 

0 

1 

10 

40 

MCIU/ML 

FTI(T4*T3U) 

KD 

0 

2.2 

4.7 

20 

MCG/DL 

SICKLEDEX 

LA 

N 

P 

-2 

2 

HEMOGLOBIN  ELECTRO 

LB 

N 

A 

-2 

1 

1.  HEMOGLOBIN  A-1 

LC 

.5 

94.8 

96.7 

99.5 

7. 

2.  HEMOGLOBIN  A-2 

LD 

.5 

1.3 

3.5 

25 

MG  7. 

3.  HEMOGLOBIN  -  OTHER 

LE 

N 

P 

-2 

2 

24HR  URINE  UROBILINOGEN 

LF 

0 

.3 

1 

10 

EU 

DIRECT  COOMBS 

LG 

N 

P 

-2 

2 

INDIRECT  COOMBS 

LH 

N 

P 

-2 

2 

OSMOTIC  FRAGILITY 

LI 

N 

A 

-2 

1 

URINE  OSMOLALITY 

MA 

300 

800 

1400 

1700 

MOSM  * 

SERUM  OSMOLOLITY 

MB 

150 

280 

290 

400 

MOSM  * 

24HR  URINE  TOT  VOL 

MC 

300 

600 

1600 

4000 

ML/24HR 

CELL  COUNT 

NA 

0 

0 

10 

100 

LYMPH/CC 

GLUCOSE 

NB 

15 

40 

75 

150 

MGZ 

PROTEIN 

NC 

5 

15 

45 

150 

MG% 

GRAM  STAIN 

ND 

N 

P 

-2 

2 

INDIA  INK  PREP 

NE 

N 

P 

-2 

2 

CULTURE 

NF 

N 

P 

-2 

2 

PROTEIN  ELECTRO 

NG 

N 

A 

-2 

1 

ALBUMIN 

NH 

50 

56.8 

76.4 

82 

% 

ALPHA  1  GLOBULIN 

NI 

.5 

1.1 

6.6 

7.6 

Z 

AT.PHA  2  GLOBULIN 

NJ 

1.5 

3 

12.6 

14.6 

Z 

b  .TA  GLOBULIN 

NK 

5.3 

7,3 

17.9 

19.9 

Z 

GAMMA  GLOBULIN 

NL 

1 

3 

13 

20 

Z 

IGG 

NM 

0 

.2 

5 

6.5 

MG% 

VDRL 

NN 

N 

P 

-2 

2 

FTA 

NO 

N 

P 

-2 

2 

PLATELETS 

OA 

100 

135 

381 

500 

K/CMM 

PROTHROMBIN  TIME  l.PAT 

OB 

8 

10 

14 

16 

SEC 
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Test  Name 

PROTimOMBIN  TIME  2. CON 
PART  THROMB  TIME  l.PAT 
PART  THROMB  TIME  2. CON 
BLEEDING  TIME 
CLOTTING  TIME 
FIBRINOGEN 

CLOT  RETRACT  ION /LYSIS 
RHEUMATOID  FACTOR 
ANTINUCLEAR  ANTIBODY 
FREE  FATTY  ACIDS 
SERUM  COPPER 
URINE  COPPER 
SERUM  ZINC 
URINE  ZINC 
SERUM  CHROMIUM 
URINE  CHROMIUM 
SERUM  CATMIUM 
URINE  CADMIUM 
SERUM  IRON 

TOTAL  IRON  BIND  CAPAC 
URINE  IRON 
BLOOD  LEAD 
24HR  URINE  TOT  VOL 
OCCULT  BLOOD 
OVA  &  PARASITES 
FAT  SCREEN 
7 2 HR  STOOL  FAT 
CULTURE 
EXCRE  FUN  ICG 
UNBOUND  SERUM  CALCIUM 
ALK  PROS  HEAT  INACT 
ACID  PHOSPHATASE 
D-XYLOSE  EXCRETION 
5HR  TOTAL  VOLUME 
KOH  PREP 
SERUM  AMYLASE 
URINE  AMYLASE 
1.  TOTAL  VOLUME 
FTA  ABS 

HEPATITIS  ASSOC  ANTIGEN 
COCCIODIOMYCOSIS  TITER 
HISTOPLASMOSIS  TITER 


i 


Phase  2 

Phase 

3 

Phase  2 

Healthy 

Code 

MIN 

MIN 

MAX 

MAX 

OC 

8 

10 

14" 

18 

SEC 

OD 

17 

21 

29 

33 

SEC  * 

OE 

10 

25 

35 

45 

SEC 

OF 

0.5 

1 

6 

10 

* 

OG 

1 

5 

11 

15 

it 

OH 

50 

110 

400 

900 

MG% 

01 

N 

A 

-2 

1 

PA 

N 

P 

-2 

2 

PB 

N 

P 

-2 

2 

QA 

5 

9 

57 

200 

MG% 

RA 

30 

70 

130 

300 

HGZ 

RBM 

10 

30 

90 

400 

UG/24HR 

RC 

35 

75 

120 

300 

UG7. 

RDM 

50 

300 

600 

1000 

UG/24HR 

RE 

.02 

.03 

,2 

1.5 

ijc;: 

RFM 

2 

10 

20 

50 

UG/24HR 

RG 

.01 

.02 

1 

3 

UG% 

RHM 

4 

7 

30 

150 

UG/24HR 

RI 

20 

80 

160 

400 

UG% 

RJ 

100 

250 

500 

700 

UGX 

RKM 

40 

100 

300 

500 

UG/24HR 

RL 

0 

0 

50 

150 

UG% 

RM 

0 

600 

1600 

4000 

ML/24HR 

SA 

N 

T 

-3 

SB 

N 

P 

-2 

2 

SC 

N 

T 

-3 

SD 

0.5 

.6 

6 

20 

GM% 

SE 

N 

P 

-5 

9367 

TA 

2 

2.1 

9 

25 

% 

UA 

1 

3.7 

6.3 

9 

MG% 

UB 

N 

A 

-2 

1 

VA 

0 

0 

1.6 

30 

•It 

VB 

4 

16 

33 

50 

z  * 

VC 

50 

100 

300 

600 

ML 

VD 

N 

? 

-2 

2 

\rv 

0 

23 

85 

200 

lU/L 

VFT 

70 

35 

260 

600 

UN ITS /HR  * 

VG 

300 

600 

1600 

4000 

ML/24HR 

VH 

N 

P 

-2 

2 

VI 

N 

i- 

-2 

2 

VJ 

N 

P 

•  2 

2 

VK 

N 

P 

-2 

2 

•J 


♦ 


» 


» 


» 


B 


» 


» 


» 


•  •  •  •  •  < 


i 


0 
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Phase  2 

Phase 

3 

Phase  2 

Healthy 

Test  Name 

Code 

MIN 

MIN 

MAX 

MAX 

ALPHA  1  ANTITRYPSIN 

vl" 

0 

85 

213 

500 

MG%  * 

TOXOPLASMOSIS  TITER 

VM 

N 

P 

-2 

2 

URINE  COPROPORPHYRINAGEN 

VN 

0 

60 

280 

500 

UG/24HR  * 

DELTA  AMINMO  LEVUL  ACID 

VO 

0 

1 

7 

20 

MG/24HR  * 

ALDOLASE 

VP 

.5 

1 

6 

50 

lU 

TRP 

vq 

65 

80 

90 

95 

X 

SERUM  CAROTENE 

VR 

25 

50 

300 

400 

UGX 

THYROGLOBULIN  ANTIBODY 

VS 

N 

P 

-2 

2 

24HR  URINE  TOT  VOL 

VT 

300 

600 

1600 

4000 

ML/24HR 

COLOR 

WA 

N 

A 

-2 

1 

SPECIFIC  GRAVITY 

WBl 

.003 

1.012  1. 

049 

1.050 

PH 

WC 

3 

5 

7 

10 

PROTEIN 

WD 

N 

T 

-3 

0 

GLUCOSE 

WE 

N 

T 

-3 

1 

ACETONE 

\7F 

N 

T 

-3 

1 

BLOOD 

WG 

M 

■O' 

i. 

1 

BILE 

WH 

N 

T 

-3 

1 

MICRO-Gl  1. CASTS  HYALINE 

WI 

0 

0 

2 

110 

/LPF 

MICRO-Gl  1. CASTS  B.GRAN 

WJ 

0 

0 

2 

110 

/LPF 

MICRO-Gl  1. CASTS  OTHER 

WK 

N 

P 

-5 

9401 

MICRO-Gl  2.  NBC 

WL 

0 

0 

3 

100 

/HPF 

MICRO-Gl  3.  RBC 

WM 

0 

0 

2 

500 

/HPF 

MICRO-Gl  4.  OTHER 

WN 

N 

? 

-5 

9423 

CULTURE-GLASS  1  (24HR) 

WO 

N 

T 

-5 

9445 

K  COL/CC  * 

CULTURE-GLASS  1  (48HR) 

WP 

N 

T 

-5 

9467 

K  COL/CC  * 

MICRO-G2  1. CASTS  HYALINE 

XA 

0 

0 

2 

110 

/LPF 

MICRO-G2  1. CASTS  B.GRAN 

XB 

0 

0 

2 

110 

/LPF 

MICRO-G2  1. CASTS  OTHER 

XC 

N 

P 

-5 

9501 

MICRO-G2  2.  WBC 

XD 

0 

0 

5 

500 

/HPF 

MICRO-G2  3.  RBC 

XE 

0 

0 

2 

500 

/HPF 

MICRO-G2  4.  OTHER 

XF 

N 

? 

-5 

9523 

CULTURE-GLASS  2(24HR) 

XG 

N 

0 

-3 

9545 

K  COL/CC  * 

CULTURE-GLASS  2(48HR) 

XH 

N 

0 

-3 

9567 

K  COL/CC  * 

MICRO-G3  1. CASTS  HYALINE 

XI 

0 

0 

2 

110 

/LPF 

MICRO-G3  1. CASTS  B.GRAN 

XJ 

0 

0 

2 

110 

/LPF 

MICRO-G3  1. CASTS  OTHER 

XK 

N 

? 

-3 

9601 

MICRO-G3  2.  WBC 

XL 

0 

0 

3 

500 

/HPF 

MICRO-G3  3.  RBC 

XM 

0 

0 

2 

500 

/HPF 

MICRO-G3  4.  OTHER 

XN 

N 

p 

-5 

9623 

CULTURE  GLASS  3(24HR) 

XO 

N 

0 

-5 

9645 

K  COL/CC  * 

CULTURE  GLASS  3(48HR) 

XP 

N 

0 

-3 

9667 

K  COL/CC  * 

24HR  URINE  SODIUM 

YAO 

40 

80 

180 

400 

MEQ/L  * 

•  • 

< 

B 

• 

• 

• 
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Phase  2  Phase  3  Phase  2 
Healthy 


Test  Name 

Code 

MIN 

MIN 

MAX 

MAX 

24HR  urine  POTASSIUM 

YB 

10 

25 

100 

250 

MEQA.  * 

VMA 

YC 

0 

0 

10 

50 

MG/24HR  * 

17  KETOSTEROIDS 

YDO 

2 

8 

20 

70 

MG/24HR  * 

HYDROXYCORTICOSTEROIDS 

YEO 

2 

6 

24 

70 

MG/24HR  * 

CREATININE  CLEARANCE 

YFO 

3 

97 

137 

170 

CC/MIN  * 

URINE  OSMOLALITY 

YG 

300 

800 

1400 

1700 

MOSM 

SERUM  OSMALALITY 

YH 

150 

280 

290 

400 

MOSM 

PLASMA  CORTISOL  (0730) 

YI 

0 

9 

30 

50 

UGX 

PLASMA  CORTISOL  (0930) 

YJ 

0 

5 

15 

30 

UG% 

RENIN  1. SODIUM 

LOAD 

YK 

N 

A 

-2 

1 

UPRIGHT  2. SODIUM 

DEPL 

YL 

N 

A 

-2 

1 

RENIN  1. SODIUM 

LOAD 

YM 

N 

A 

-2 

1 

YN 

RECLINE  2. SODIUM 

DEPL 

YN 

N 

A 

-2 

1 

24HR  urine  tot  VOL 

YO 

300 

600 

1600 

4000 

ML/24HR 

PLASMA  CORTISOL  (1600) 

YP 

0 

4 

15 

30 

ug:^  * 

GLUCOSE  TOLERANCE 

ZA 

40 

70 

120 

dOO 

MG7. 

GLUCOSE  TOLERANCE 

-  PBS 

ZAA 

MG^, 

GLUCOSE  TOLERANCE 

.5  HR 

ZAB 

MG% 

GLUCOSE  TOLERANCE 

2  HR 

ZAC 

HGX 

GLUCOSE  TOLERANCE 

3  HR 

ZAD 

MG% 

GLUCOSE  TOLERANCE 

4  HR 

ZAE 

HGZ 

aUCOSE  TOLERANCE 

5  HR 

ZAF 

MG% 

URINE  GLUCOSE 

ZB 

N 

T 

■•3 

0 

URINE  GLUCOSE  - 

FBS 

ZBA 

NEGATIVE 

URINE  GLUCOSE  ,5 

HR 

ZBB 

NEGATIVE 

URINE  GLUCOSE  1 

HR 

ZBC 

NEGATIVE 

URINE  GLUCOSE  1.5 

HR 

ZBD 

NEGATIVE 

URINE  GLUCOSE  2 

HR 

ZBE 

NEGATIVE 

URINE  GLUCOSE  3 

HR 

ZBF 

NEGATIVE 

URINE  GLUCOSE  4 

HR 

ZBG 

NEGATIVE 

URINE  GLUCOSE  5 

HR 

ZBH 

NEGATIVE 

PLASMA  FFA 

ZC 

0 

9 

57 

500 

VGX 

PLASMA  FFA  -  FBS 

ZCA 

UGX 

PLASMA  FFA  .5  HR 

ZCB 

UG% 

PLASMA  FFA  2  HR 

zee 

UG% 

PLASMA  FFA  3  HR 

ZCD 

UG% 

PLASMA  FFA  4  HR 

ZCE 

UG% 

PLASMA  FFA  5  HR 

ZCF 

UG% 

♦ 


» 


i 


i 


» 


i 


•  ••••••• 


•  • 
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Phase  2 

Pha  se  3 

Phase  2 

Heal  thy 

Test  Name 

Code 

MIN 

MIN  MAX 

MAX 

PLASMA  CORTISOL 

zd“ 

O' 

9  *30' 

To 

UG2 

PLASMA  CORTISOL 

-  FBS 

ZDA 

UGZ 

PLASMA  CORTISOL 

,  « 

5  HR 

ZDB 

UG% 

> 

PLASMA  CORTISOL 

1 

HR 

ZDC 

UG% 

PLASMA  CORTISOL 

1 

.5  HR 

ZDD 

UGZ 

PLASMA  CORTISOL 

2 

HR 

ZDE 

UG% 

PLASMA  CORTISOL 

3 

HR 

ZDF 

UG% 

PLASMA  CORTISOL 

4 

HR 

ZDG 

UGZ 

PLASMA  CORTISOL 

5 

HR 

ZDH 

UGZ 

» 

SERUM 

COPPER 

ZE 

0 

70  130 

400 

UGZ 

SERUM 

COPPER  - 

FBS 

ZEA 

UGZ 

SERUM 

COPPER  1. 

5  HR 

ZEB 

UGZ 

SERUM 

COPPER  2 

HR 

ZEC 

UGZ 

SERUM 

COPPER  3 

HR 

ZED 

UGZ 

SERUM 

COPPER  4 

HR 

ZEE 

UGZ 

SERUM 

COPPER  5 

HR 

ZEF 

UGZ 

SERUM 

ZINC 

ZF 

0 

75  120 

400 

UGZ 

SERUM 

ZINC  - 

FBS 

ZFA 

UGZ 

SERUM 

ZINC  .5 

HR 

ZF3 

UGZ 

> 

SERUM 

ZINC  1 

HR 

ZFC 

UGZ 

SERUM 

ZINC  1.5 

HR 

ZFO 

UGZ 

TERUM 

ZINC  2 

HR 

ZFE 

UGZ 

SERUM 

ZINC  3 

HR 

ZFF 

UGZ 

SERUM 

ZINC  4 

HR 

ZFG 

UGZ 

SERUM 

ZINC  5 

HR 

ZFH 

UGZ 

t 

SERUM 

CHROMIUM 

ZG 

0 

0.03  0.2 

20 

UGZ 

SERUM 

CHROMIUM 

- 

FBS 

ZGA 

UGZ 

SERUM 

CHROMIUM 

.5 

HR 

ZGB 

UGZ 

SERUM 

CHROMIUM 

2 

HR 

ZGC 

UGZ 

SERUM 

CHROMIUM 

3 

HR 

ZGD 

UGZ 

1 

SERUM 

CHROMIUM 

4 

HR 

ZGE 

UGZ 

SERUM 

CHROMIUM 

5 

HR 

ZGF 

UGZ 

•  •  • 


•  • 
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Phase  2 

Phase  3 
Healthy 

Phase  2 

Test  Name 

Code  MIN 

MIN  MAX 

MAX 

SERUM  CALCIUM 

ZH  6 

9.1  10.5' 

Y3' 

MG% 

SERUM  CALCIUM  - 

FbS 

ZHA 

MG% 

SERUM  CALCIUM  .5 

HR 

ZHB 

MGZ 

SERUM  CALCIUM  1 

HR 

ZHC 

MG  2 

SERUM  CALCIUM  1.5 

HR 

ZHD 

MGZ 

SERUM  CALCIUM  2 

HR 

ZHE 

MG% 

SERUM  CALCIUM  3 

HR 

ZHF 

MGZ 

SERUM  CALCIUM  4 

HR 

ZHG 

MG% 

SERUM  CALCIUM  5 

HR 

ZHH 

MG% 

SERUM  MAGNESIUM 

ZI  0 

1.8  2.4 

24 

MG% 

SERUM  MAGNESIUM  - 

FBS 

ZIA 

MG  2 

SERUM  MAGNESIUM  . 

5  HR 

ZIB 

MG^. 

SERUM  MAGNESIUM  2 

HR 

ZIC 

MG% 

SERUM  MAGNESIUM  3 

HR 

ZID 

^GZ 

SERUM  MAGNESIUM  4 

HR 

ZIE 

MG/. 

SERUM  MAGNESIUM  5 

HR 

ZIF 

MG% 

SERUM  CADMIUM 

ZJ  0 

.02  1 

10 

UG/, 

SERUM  CADMIUM  - 

FBS 

ZJA 

UGZ 

SERUM  CADMIUM  .5 

HR 

ZJb 

UG/. 

SERUM  CADMIUM  1 

HR 

ZJC 

UG/. 

SERUM  CADMIUM  1.5 

HR 

2JD 

UG/, 

SERUM  CADMIUM  2 

HR 

ZJE 

UG^ 

SERUM  CADMIUM  3 

HR 

ZJF 

Uo  Z 

SERUM  CADMIUM  4 

HR 

ZJG 

UG/. 

SERUM  CADMIUM  5 

HR 

ZJH 

UG/, 
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Phase  2 

Phase 

3 

Phase  2 

Heal  thy 

Test  Name 

Code 

MIN 

MIN 

MAX 

MAX 

SERUM 

INSULIN 

ZK 

0 

5 

50 

250 

UU/ML 

SERUM 

INSULIN  - 

FBS 

ZKA 

UU/ML 

SERUM 

INSULIN  .5 

HR 

2KB 

UU/ML 

SERUM 

INSULIN  2 

HR 

ZKC 

UU/ML 

SERUM 

INSULIN  3 

HR 

ZKD 

UU/ML 

SERUM 

INSULIN  4 

HR 

2KE 

UU/ML 

SERUM 

INSULIN  5 

HR 

ZKF 

UU/ML 

SERUM 

GROWTH  HORM 

ZL 

0 

0 

5 

12 

NG/ML 

SERUM 

GROWTH  HORM 

-  FBS 

ZLA 

NG/ML 

SERUM 

GROWTH  HORM 

.5  HR 

ZLB 

NG/ML 

SERUM 

GROWTH  HORM 

1  HR 

ZLC 

NG/ML 

SERUM 

GROWTH  HORM 

1.5  HR 

ZLD 

NG/ML 

SERUM 

GROWTH  HORM 

2  HR 

ZLE 

NG/ML 

SERUM 

GROWTH  HORM 

3  HR 

ZLF 

NG/ML 

SERUM 

GROWTH  HORM 

4  HR 

ZLG 

NG/ML 

SERUM 

GROWTH  HORM 

5  HR 

ZLH 

NG/ML 

SERUM 

GLUCAGON 

ZM 

0 

200 

2000 

5000 

PG/ML 

SERUM 

GLUCAGON  - 

FBS 

ZMA 

PG/ML 

SERUM 

GLUCAGON  .5 

HR 

2MB 

PG/ML 

SERUM 

GLUCAGON  2 

HR 

ZMC 

PG/ML 

SERUM 

GLUCAGON  3 

HR 

ZMD 

PG/ML 

SERUM 

GLUCAGON  4 

HR 

z:me 

PG/ML 

SERUM 

GLUCAGON  5 

HR 

ZMF 

PG/ML 

SERUM 

CALCITONIN 

ZN 

100 

100 

400 

1000 

PG/ML 

SERUM 

CALCITONIN 

-  FBS 

ZNA 

PG/ML 

SERUM 

CALCITONIN 

.5  HR 

ZNB 

PG/ML 

SERUM 

CALCITONIN 

1  HR 

ZNC 

PG/ML 

SERUM 

CALCITONIN 

1.5  HR 

ZND 

PG/ML 

SERUM 

CALCITONIN 

2  HR 

ZNE 

PG/ML 

SERUM 

CALCITONIN 

3  HR 

ZNF 

PG/ML 

SERUM 

CALCITONIN 

4  HR 

ZNG 

PG/ML 

SERUM 

CALCITONIN 

5  HR 

ZNH 

PG/ML 
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Phase  2 


Test  Name 

Code 

MIN 

TOT  VOL 

ZO 

10 

TOT  VOL  2HR  PRE  PRAND 

ZOA 

TOT  VOL  2HR  POST  PRAND 

ZOB 

GREAT 

ZP 

10 

CALCIUM 

ZQ 

0 

CALCIUM  2HR  PRE  PRAND 

ZQA 

CALCIUM  2HR  POST  PRAND 

ZQB 

CHROMIUM 

ZR 

0 

CHROMIUM  2HR  PRE  PRAND 

ZRA 

CHROMIUM  2HR  POST  PRAND 

ZRB 

COPPER 

ZS 

0 

COPPER  2HR  PRE  PRAND 

ZSA 

COPPER  2HR  POST  PRAND 

ZSB 

MAGNESIUM 

ZT 

0 

MAGNESIUM  2HR  PRE  PRAND 

ZTA 

MAGNESIUM  2HR  POST  PRAND 

ZTB 

ZINC 

ZU 

0 

ZINC  2HR  PRE  PRAND 

ZUA 

ZINC  2HR  POST  PRAND 

ZUB 

CADMIUM 

ZV 

0 

CADMIUM  2HR  PRE  PRAND 

ZVA 

CADMIUM  2HR  POST  PRAND 

ZVB 

Phase  3 
Healthy 

MIN  MAX 

15  800 

Phase  2 

MAX 

900 

ML 

ML 

ML 

100 

200 

500 

MG /TV 

1 

60 

90 

MG /TV 
MG /TV 
MG /TV 

1 

5 

50 

UG  /TV 
UG/TV 
UG  /TV 

5 

20 

200 

UG/TV 

UG/TV 

UG/TV 

1 

60 

90 

MG /TV 
UG/TV 
UG/TV 

50 

100 

500 

UG/TV 
UG  /TV 
UG/TV 

1 

5 

50 

UG/TV 

UG/TV 

UG/TV 
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Panel  to  Teat  Reference 


PANEL  A  -  HEMOGRAM 


Test  Code 

Test  Name 

Accuracy /Result 

AA 

HEMATOCRIT 

(39-5U) 

AB 

HEMOGLOBIN 

(12.8-17,8GM%) 

AC 

RBC 

(4.1-6. IM/CCM) 

AD 

MCV 

(80-93FL) 

AE 

MCH 

(26-34PG) 

AF 

MCHC 

(27-37GM%) 

AG 

WBC 

(4000-9300/CMM) 

AH 

NEUTROPHILS 

(2  3-64%) 

AI 

BANDS 

(0-14%) 

AJ 

LYMPHOCYTES 

(15-50%) 

AK 

MONOS 

(0-12%) 

AL 

EOS 

(0-6%) 

AM 

BAS  OS 

(0-1%) 

AN 

TOTAL  EOSINOPHIL  COUNT 

(1 50-400 /CMM) 

AO 

RBC  MORPHOUiGY 

NORM.U. 

AP 

LYMPHOCYTE  MORPHOLOGY 

NORMAL 

AQ 

ATYPICAL  LYMPHOCYTES 

(0-20%  OF  WBC) 

AR 

MONOCYTE  MORPHOLOGY 

NORMAL 

AS 

NEUTROPHIL  MORPHOLOGY 

NORMAL 

AT 

MONO  SPOT  TEST 

NEGATIVE 
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PANEL  B  -  HEMOLYTIC  SCREEN 


Test  Code 

Test  Name 

Aocviracy/ Result 

BA 

RETICULOCYTE  COUOT 

(.2-1.5%  OF  RBC) 

BB 

LDH  FRACTION  I 

(25-30%) 

BC 

INDIRECT  BILIRUBIN 

(.4-.8MG%) 

• 

BD 

G-6-PDH 

(5-lOIU) 

Test  Code 

PANEL  C  -  TISSUE  DESTRUCT  SCREEN 

Test  Name 

Accuracy/ Re suit 

• 

CD 

SEDIMENTATION  RATE 

SERUM  PROTEIN  ELECTRO 

(6.5-8.1GM%) 

NORMAl. 

CE 

ALBUMIN 

(3.8-3. 1GM%) 

CF 

ALPHA-1  GLOBULIN 

(.2-.4GM%) 

CG 

ALPHA-2  GLOBULIN 

(.4-.8GM%) 

CH 

BETA  GLOBULIN 

(.6-1.2GM%) 

» 

Cl 

GAMMA  GLOBULIN 

(.t)-1.3GM%) 

CJ 

LDH 

(H2-192IU/L) 

PANEL  D  -  CARDIOVASCULAR  SCREEN 

Test  Code 

Test  Name 

Accuracy/Resulc 

w 

DA 

CHOLESTERAL 

(T34-i'74MGT)‘ 

DB 

HDL  CHOLESTERAL 

(25-70MG%) 

DC 

TRIGLYCERIDE 

(35-210MG%) 

DD 

PHOSPHOLIPIDS 

(0-300MG%) 

DE 

TOTAL  LIPIDS 

(0-350:iG%) 

» 

PANEL  E  -  HEPATIC  SCREEN 

Test  Code 

Test  Name 

Accuracy/ Result 

EA 

PARENCHYMAL 

SGPT 

(10'-39IU/L) 

» 

EB 

PARENCHYMAL 

SCOT 

(8-26IU/L) 

EC 

PARENCHYMAL 

LDH  V 

(7-10%) 

ED 

EXCRETORY; 

ALK  PHOS 

(28-641U/L) 

EE 

EXCRETORY: 

TOT.  BILIRUBIN 

(.33-l.2MG%) 

EF 

EXCRETORY; 

DIR.  BILIRUBIN 

(0-.4MG%) 

EG 

GGTP 

(7-36IU/L) 

» 

EH 

ALK  PHOS  HEAT  INACT 

NORMAL 

B 


» 
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CLINICAL  PATHOLOGY 


PANEL  F  -  RENAL  SCREEN 


Test  Code 

Test  Name 

Accuracy/ Result 

FA 

COLOR 

NORMAL 

FB 

SPECIFIC  GRAVITY 

(1.01-1.035) 

FC 

PH 

(5-7) 

FD 

PROTEIN 

NEGATIVE  (0) 

FE 

GLUCOSE 

NEGATIVE  (0) 

FF 

ACETONE 

NEGATIVE  (0) 

FG 

BLOOD 

NEGATIVE  (0) 

FH 

BILE 

NEGATIVE  (0) 

FI 

MICRO 

HYALINE  CASTS 

(0-2 /LPF) 

FJ 

MICRO 

GRANULAR  CASTS 

(0-2 /LPF) 

FK 

MICRO 

OTHER  CASTS 

FL 

MICRO 

WBC 

(0-5 /HPF) 

FM 

MICRO 

RBC 

(0-2/HPF) 

FN 

MICRO 

OTHER 

FO 

BUN 

(7-23MG%) 

FP 

CREATININE 

( .85-l.5MG%) 

FQ 

CREATININE  CLEARANCE 

(70-137ML/MIN) 

FR 

CULTURE 

FS 

24HR  URINE  PROTEIN 

(6-15-MG/24HR) 

FT 

24HR  URINE  TOT  VOL 

( 600-1 600ML/24HR) 

PANEL  G  -  MISCELLANEOUS 

Test  Code  Test  Name  Accuracy/Result 


GA 

RPR 

NEGATIVE 

G8 

BLOOD  GROUP-RH  FACTOR 

GC 

CPK 

(15-85IU/L) 

PANEL  H  -  PARATHYROID  SCREEN 


Test  Code 

Test  Name 

Accuracy/ Result 

HA 

SERUM  CALCIUM 

(8.8-10. 3MG%) 

HB 

24HR  URINE  CALCIUM 

(50-300MG/24riR) 

HC 

INORGANIC  PHOSPHORUS 

(2.6-4. 5MG%) 

HD 

PHORPHORUS  CLEARANCE 

(5-1 5ML/MIN) 

HE 

SERUM  MAGNESIUM 

(1.8-2.4MG70 

HF 

24HR  URINE  MAGNESIUM 

(60-300MG/24HR) 

HG 

24HR  URINE  TOT  VOL 

( 600-1 600ML/24HR) 
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PANEL  I  -  METABOLIC  SCREEN 


Test  Code 

Test  Name 

Accuracy /Result 

LA 

SODIUM 

(136-144MEQ7l) 

IB 

POTASSIUM 

(3.5-4.7MEQ/L) 

IC 

C02 

(22.2-31.4MEQ /L) 

ID 

CL 

(99-IIOMEQ/L) 

IE 

URIC  ACID 

(3.5-7. 8MGJ:) 

IF 

24HR  urine  uric  ACID 

(250-750MG/24HR) 

IG 

24HR  URINE  TOT  VOL 

( 600-1 600ML/24HR) 

PANEI.  J  -  HEMOGRAM 

Test  Code 

Test  Name 

Accuracy/Result 

JA 

MALARIAL  SMEAR 

(.3-. 367.  *) 

JB 

RED  CELL  3.  CNTL-INIT 

(.4-. 467.  *) 

JC 

RED  CELL  4.  CNTL -FINAL 

(.3-.36^  *) 

JD 

NASAL  SMEAR  FOR  EOS 

NEGATIVE 

I 


» 


» 


PANEL  K  -  THYROID  PROFILE 


Test  Code 

Test  Name 

Accuracy/ Re suit 

» 

KA 

T3  UPTAKE 

(35-4570 

KB 

T4  R7A 

(5.5-11.5MCG/DL) 

BC 

TSH  BY  RIA 

(  .4-4.8MCIU/ML) 

KD 

FTI (T4*T3U) 

(1.9-5.2MCG/DL) 

PANEL  L  -  HEMOLYTIC  SCREEN 

» 

Test  Code 

Test  Name 

Accuracy/Result 

LA 

SICKLEDEX 

NEGATIVE 

LB 

HEMOGLOBIN  ELECTRO 

NORMAL 

LC 

1.  HEMOGLOBIN  A-1 

(94.3-96.77.) 

» 

LD 

2.  HEMOGLOBIN  A-2 

(1.3-3.5MG7.) 

LE 

3.  HEMOGLOBIN  -  OTHER 

NEGATIVE 

LF 

24HR  URINE  UROBILINOGEN 

(.3-lEU) 

LG 

DIRECT  COOMBS 

NEGATIVE 

LH 

INDIRECT  COOMBS 

NEGATIVE 

LI 

OSMOTIC  FRAGILITY 

NORMAL 

» 

» 


» 


Li 


•  •  • 
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PANEL  M  -  RENAL  SCREEN 


Test  Code 

Test  Name 

Accuracy/ Re suit 

MA 

URINE  OSMOLALITY 

(300-1 400M0SM) 

'tB 

SERUM  OSMOULITY 

(280-290MOSM) 

MC 

24HR  URINE  TOT  VOL 

(600-1 500ML/24HR) 

• 

PANEL  N  -  CEREBROSPINAL  FLUID 

Test 

Code 

Test  Name 

Accuracy/ Re suit 

NA 

CELL  COUNT 

(O-IOLYMPH/CC) 

NB 

GLUCOSE 

(40-75MG%) 

• 

NC 

PROIEIN 

(15-45MG%) 

ND 

GRAM  STAIN 

NEGATIVE 

NE 

INDIA  INK  PREP 

lEGATIVE 

NF 

CULTURE 

NEGATIVE 

NG 

PROTEIN  ELECTRO 

NORMAL 

NH 

ALBUMIN 

(56.8-76,4%) 

NI 

ALPHA  1  GLOBULIN 

(1.1-6, 6%) 

NJ 

ALPHA  2  GLOBULIN 

(3-12.6%) 

NK 

BETA  GLOBULIN 

(7.3-17.9%) 

NL 

GAMMA  GLOBULIN 

(3-13%) 

NM 

IGG 

(.2-5MG%) 

NN 

VDRL 

NEGATIVE 

» 

NO 

FTA 

NEGATIVE 

PANEL  0  -  COAGULATION  SCREEN 

Test 

Code 

Test  Name 

Ac curacy/ Re suit 

OA 

PLATELETS 

a35-38lK/CMM) 

> 

OB 

PROTHROMBIN  TIME; 

PATIENT 

(10-14SEC) 

OC 

PROTHROMBIN  TIME: 

CONTROL 

(10-1 4SEC) 

OD 

PROTHROMBIN  TIME; 

PATIENT 

(21-30. 2SEC) 

OE 

PROTHROMBIN  TIME: 

CONTROL 

(25-35SEC) 

OF 

BLEEDING  TIME 

(1-6*) 

OG 

CLOTTING  TIME 

(5-11*) 

» 

OH 

FIBRINOGEN 

(110-400MG%) 

01 

CLOT  RETRACTION/LYSIS 

NORMAL 
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PANEL  P  -  TISSUE  DESTRUCT  SCREEN 


» 


Test  Code 

Test  Name 

Ac curacy/ Result 

PA 

RHEUMATOID  FACTOR 

NEGATIVE 

PB 

ANTINUCLEAR  ANTIBODY 

NEGATIVE 

» 

PANEL  Q  -  CARDIOVASCirLAR  SCREEN 

Test  Code 

Test  Name 

Accuracy/Resul t 

QA 

FREE  FATTY  ACIDS 

(9-57MG%) 

» 

PANEL  R  -  TRACE  METALS 

Test  Code 

Test  Name 

Accuracy/ Re suit 

RA 

SERUM  COPPER 

(70-130UG7r) 

RB 

URINE  COPPER 

(30-90UG/24HR) 

» 

RC 

SERUM  ZINC 

(75-120UG7,) 

RD 

URINE  ZINC 

(300-600UG/24HR) 

RE 

SERUM  CHROMIU;! 

(  .03-.2UG%) 

RF 

URINE  CHROMIUM 

(10-20UG/24HR) 

RG 

SERUM  CADMIUM 

(  .02-1UG7O 

RH 

URINE  CADMIUM 

(7-30UG/24HR) 

» 

RI 

SERUM  IRON 

(41-132UG%) 

RJ 

TOTAL  IRON  BIND  CAP AC 

(146-4  64UG/.) 

RK 

URLNE  IRON 

(100-300UG/24HR) 

RL 

BLOOD  LEAD 

(0-50UG7.) 

RM 

24HR  URINE  TOT  VOL 

(600-1 600UG/24HR) 

i 

PANEL  S  -  STOOL  EXAMINATION 

Test  Code 

Test  Name 

Accuracy/Result 

SA 

OCCULT  BLOOD 

NEGATIVE  (0) 

SB 

OVA  &  PARASITES 

NEGATIVE 

» 

SC 

FAT  SCREEN 

NEGATIVE  (0) 

SD 

72 HR  STOOL  FAT 

(.6-6GM%) 

SE 

CULTURE 

PANEL  T  -  HEPATIC  SCREEN 

» 

Test 

Code 

Test  Name 

Accuracy/Result 

TA 

EXCRE  fW  ICG 

(2.1-9%) 

PANEL  U  -  PARATHYROID  SCREEN 

» 

Test 

Code 

Test  Name 

Accuracy/ Result 
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UNBOUND  SERUM  CALCIUM  (3.7-6 

ALK  PHOS  HEAT  INACT  NORMAL 


3MG%) 
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PANEL  V  -  MISCELLANEOOS 


Test  Code 

Test  .  -luie 

Accuracy /Result 

VA 

ACID  PHOSPHATASE 

(0-1.6IU  *) 

VB 

D-XYLOSE  EXCRETION 

(16-33%  *) 

VC 

SHR  TOTAL  VOLUME 

(100-300ML) 

VD 

KOH  PREP 

NEGATIVE 

VE 

SERUM  AMYLASE 

(23-85IU/L) 

VF 

URINE  AMYLASE 

(35-260UNITS/HR  *) 

VG 

1.  TOTAL  VOLUME 

(600-1600ML/24HR) 

VH 

FTA  ABS 

NEGATIVE 

VI 

HEPATITIS  ASSOC  ANTIGEN 

NEGATIVE 

VJ 

COCCIODIOMYCOSIS  TITER 

NEGATIVE 

VK 

HISTOPLASMOSIS  TITER 

NEGATIVE 

VL 

ALPHA  1  ANTITRYPSIN 

(S5-213MG%  *) 

VM 

TOXOPLASMOSIS  TITER 

NEGATIVE 

VN 

URINE  COPROPORPHYRINOGEN 

(60-280UG/24HR) 

VO 

DELTA  AMINO  LEVUL  ACID 

(1-7MG/24HR) 

VP 

ALDOLASE 

(1-6IU) 

VQ 

TRP 

( 80-90% ) 

VR 

SERUM  CAROTENE 

(50-300UG%) 

VS 

THYROGLOBULIN  ANTIBODY 

NEGATIVE 

VT 

24HR  URINE  TOT  VOL 

(600-1 600ML/24HR) 

PANEL  W  -  THREE  GLASS 

URINALYSIS 

Test  Code 

Test  Name 

Accuracy/ Re suit 

WA 

COLOR 

IWRMAL 

WB 

SPECIFIC  GRAVITY 

(1.01-1.035) 

WC 

PH 

(5-7) 

WD 

PROTEIN 

NEGATIVE  (0) 

WE 

GLUCOSE 

NEGATIVE  (0) 

WF 

ACETONE 

NEGATIVE  (0) 

WG 

BLOOD 

NEGATIVE  (0) 

WH 

BILE 

NEGATIVE  (0) 

WI 

MICRO-Gl:  HYALINE  CASTS 

(0-2 /LPF) 

WJ 

MICRO-Gl:  GRANULAR  CASTS 

(0-2 /LPF) 

WK 

MICRO:  OTHER  CASTS 

WL 

MICRO-Gl:  WBC 

(0-5/HPF) 

WM 

MICRO-Gl:  RBC 

(0-2 /HPF) 

WN 

MICRO:  OTHER 

WO 

CULTURE-GLASS  1  (24HR) 

WP 

CULTURE -GLASS  1  (48HR) 

•  i 


•  i 
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PANEL 

X  -  THREE  GLASS 

URINALYSIS 

Test  Code 

Test  Name 

Accuracy/ Re suit 

XA 

MICR0-G2: 

HYALINE  CASTS 

(0-27lPH) 

XB 

MICR0-G2: 

GRANULAR  CASTS 

(0-2 /LPF) 

XC 

MICRO-G2; 

OTHER  CASTS 

XD 

MICR0-G2: 

WBC 

(0-5 /LPF) 

XE 

MrCR0-G2: 

RBC 

(0-2 /LPF) 

XF 

MICR0-G2; 

OTHER 

XG 

CULTURE-GLASS  2(24HR) 

XH 

CULTURE-GLASS  2(48HR) 

XI 

MICR0-G3; 

HYALINE  CASTS 

(0-2 /LP’" 

XJ 

MICR0-G3: 

GRANULAR  CASTS 

(0-2 /LPF) 

XK 

MICR0-G3: 

OTHER  CASTS 

XL 

MICR0-G3: 

WBC 

(0-5 /LPF) 

XM 

migro-<;3: 

RBC 

(0-2 /LPF) 

XN 

MICR0-G3: 

OTHER 

XO 

CULTURE-GLASS  3(24HR) 

XP 

CULTURE -GLASS  3(48HR) 

panel  Y  -  HYPERTENSIVE  SCREEN 


Test  Code 

Test  Name 

24HR  URINE  SODIUM 

YD 

17  KETOSTEROIDS 

YE 

HYDRO XYCORT ICOSTERO I DS 

YF 

CREATININE  CLEARANCE 

YG 

URINE  OSMOLALITY 

YH 

SERUM  OSMOLALITY 

YI 

PLASMA  CORTISOL  (0730) 

YJ 

PLASMA  CORTISOL  (0930) 

YK 

RENIN  1-  SODIUM  LOAD 

YL 

UPRIGNT  2.  SODIUM  DEPL 

YM 

RENIN  1.  SODIUM  LOAD 

YN 

recline  2.  SODIUM  DEPL 

YO 

24HR  URINE  TOT  VOL 

YP 

PLASMA  CORTISOL  (1600) 

Ai'.c  uracy/ R  e  suit 
(0-10MG/2’a''hR) 
i^-lk'AZHk  HR) 
(3.6-U.6HG/24  HR) 
(97-137CCMIN  *) 
(800-L400MOSM) 
(280-290M0SM) 
(9-30UGX  *) 
(5-15UGX  *) 

NORM.AL 

NORMAL 

NORMAL 

NORMAL 

(600-1 600ML/24HR) 
(4-15UG%  *) 


•  • 


•  •  • 
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PANEL  Zl  -  GLUCOSE  TOLERANCE  PART  1 


Test  Code 

Test  Name 

Accuracy/ Res 

ZAA 

glucose'  tolerance  '  FBS 

(83-116mG%) 

ZAB 

GLUCOSE  TOLERANCE  .5  HR 

(50-220) 

ZAC 

GLUCOSE  TOLERANCE  2  HR 

(49-129MG%) 

ZAO 

GLUCOSE  TOLERANCE  3  HR 

(60-120MG%) 

ZAE 

GLUCOSE  TOLERANCE  4  HR 

(60-120MG%) 

ZAF 

GLUCOSE  TOLERANCE  5  HR 

(50-120MG%) 

ZBA 

UR  It®  GLUCOSE  -  FBS 

NEGATIVE  (0) 

ZBB 

URINE  GLUCOSE  .5  HR 

NEGATIVE  (0) 

ZBC 

URINE  GLUCOSE  1  HR 

NEGATIVE  (0) 

ZBD 

URINE  GLUCOSE  1.5  HR 

NEGATIVE  (0) 

ZBE 

URINE  GLUCOSE  2  HR 

NEGATIVE  (0) 

ZBF 

URINE  GLUCOSE  3  HR 

negative  (0) 

ZBG 

URINE  GLUCOSE  4  HR 

NEGATIVE  (0) 

ZBH 

URINE  GLUCOSE  5  HR 

NEGATIVE  (0) 

ZCA 

PLASMA  FFA  -  FBS 

(9-57UG%) 

ZCB 

PLASMA  FFA  .5  HR 

(9-37UG/.) 

zee 

PLASMA  FFA  2  HR 

(9-571IGZ) 

ZCD 

PLASMA  FFA  3  HR 

(9-57UG7.) 

ZCE 

PLASMA  FFA  4  HR 

(9-37UG;I) 

ZCF 

PLASMA  FFA  5  HR 

(9-57UG/.) 

ZDA 

PLASMA  CORTISOL  -  FBS 

(9-30UGX) 

ZDB 

PLASMA  CORTISOL  .5  HR 

(9-30UG7.) 

ZDC 

PLASMA  CORTISOL  1  HR 

(9-30UG7.) 

ZDD 

PLASMA  CORTISOL  1.5  HR 

(9-30UG%) 

ZDE 

PLASMA  CORTISOL  2  HR 

(9-30UG/.) 

ZDF 

PLASMA  CORTISOL  3  HR 

(9-30UGZ) 

ZDG 

PLASMA  CORTISOL  4  HR 

(9-30UGZ) 

zoa 

PLASMA  CORTISOL  5  HR 

(9-30UG%) 

•  •  •  •  •  •  •  _ •  .  ^  • 


Page  A-33 
Appendix  A 


PANEL  Z1  -  GLUCOSE  TOLERANCE  PART  I  (continued) 


Test  Code 

Test  Name 

Ac curacy/ Re suit 

SERUM  COPPER  -  FBS 

(70-130UG%) 

ZEB 

SERUM  COPPER  1.5  HR 

(70-130UG%) 

ZEC 

SERUM  COPPER  2  HR 

(70-130UG%) 

ZED 

SERUM  COPPER  3  HR 

(70-130UG%) 

ZEE 

SERUM  COPPER  4  HR 

(70-130UG%) 

ZEF 

SERUM  COPPER  5  HR 

{70-130UG%) 

ZFA 

SERUM  ZINC  -  FBS 

(75-120UG%) 

ZF8 

SERUM  ZINC  .5  HR 

(75-120UGZ) 

ZFG 

SERUM  ZINC  1  HR 

(75-120UG%) 

ZFD 

SERUM  ZINC  1.5  HR 

o 

o 

1 

ZFE 

SERUM  ZINC  2  HR 

(75-120UG%) 

ZFF 

SERUM  ZINC  3  HR 

(75-120UG/.) 

ZFG 

SERUM  ZINC  4  HR 

(75-120UG%) 

ZFH 

SERUM  ZINC  5  HR 

(75-l20UGr.) 

ZGA 

SERUM  CHROMIUM  -  FBS 

(.03-.2UG%) 

ZGB 

SERUM  CHROMIUM  .5  HR 

( .03-.2JC%) 

ZGC 

SERUM  CHROMIUM  2  HR 

( .  }3-.2UG%) 

ZGD 

SERUM  CHROMIUM  3  HR 

(  .03-.2UG/.) 

ZGE 

SERUM  CHROMIUM  4  HR 

(.03-.2UG%) 

ZGF 

SERUM  CHROMIUM  5  HR 

( .03-.2UG/.) 

ZHA 

SERUM  CALCIUM  -  FBS 

(9.1-10.5MG%) 

ZHB 

SERUM  CALCIUM  .5  HR 

(9.1-10.5MGZ) 

ZHC 

SERUM  CALCIUM  1  HR 

(9.1-10.5MGZ) 

ZHD 

SERUM  CALCIUM  1.5  HR 

(9.1-10.5MGX) 

ZHE 

SERUM  CALCIUM  2  HR 

(9.1-10.5MG7.) 

ZHF 

SERUM  CALCIUM  3  HR 

(9.1-10.5MGi?) 

ZHG 

SERUM  CALCIUM  4  HR 

(9. 1-10.5MG%) 

ZHH 

SERUM  CALCIUM  5  HR 

(9.1-10.5MG^) 

ZIA 

SERUM  MAGNESIUM  -  FBS 

(1.8-2.4MG%) 

ZIB 

SERUM  MAGNESIUM  .5  HR 

(1.3-2.4MG70 

ZIC 

SERUM  MAGNESIUM  2  HR 

(1.8-2.4MGZ) 

ZID 

SERUM  MAGNESIUM  3  HR 

(1.8-2.4MGZ) 

ZIE 

SERUM  MAGNESIUM  4  HR 

(1.8-2.4MG%) 

ZIF 

SERUM  MAGNESIUM  5  HR 

(1.8-2. 4MGZ ) 

• 
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PANEL  Z1  -  GLUCOSE  TOLERANCE  PART 

(continued) 

♦ 

Test  Code 

Test  Name 

Accuracy/ Result 

ZJA 

SERUM  CADMIUM  -  FBS 

( .02-lUGZ) 

Z.TB 

SERUM  CADMIUM  .5  HR 

(.02-lUG%) 

ZJC 

SERUM  CADMIUM  1  HR 

( .02-lUGZ) 

• 

ZJD 

SERUM  CADMIUM  L.5  HR 

(.02-lUG%) 

ZJE 

SERUM  CADMIUM  2  HR 

(.02-lUG%) 

ZJF 

SERUM  CADMIUM  3  HR 

(.02-lUGZ) 

ZJG 

SERUM  CADMIUM  4  HR 

(.02-LUGZ) 

ZJH 

SERUM  CADMIUM  5  HR 

(.02-lUG%) 

A 

ZKA 

SERUM  INSULIN  -  FBS 

(S-SOUU/ITL) 

ZKB 

SERUM  INSULIN  .5  HR 

(5-50UU/ML) 

ZKC 

SERUM  INSULLN  2  HR 

(5-50U'J/ML) 

ZKD 

SERUM  INSULIN  3  HR 

(5-50UU/ML) 

ZKE 

SERUM  INSULIN  4  HR 

(5-50UU/ML) 

ZKF 

SERUM  INSLXIN  5  HR 

(5-50UU/ML) 

• 

ZLA 

SERUM  GROWTH  HORM  -  FBS 

(0-5NG/ML) 

ZLB 

SERUM  GROWTH  HORM  .5  HR 

(0-5IG/ML) 

ZLC 

SERUM  GROWTH  HORM  1  HR 

(0-5NG/‘II.) 

ZLD 

SERUM  GROWTH  HORM  1 . 5  HR 

(0-5NG/ML) 

ZLE 

SERUM  GROWTH  HORM  2  HR 

(O-sNG/'IL) 

» 

• 

ZLF 

SERUM  GROWTH  HORM  3  HR 

(0-5NG/ML) 

ZLG 

SERUM  GROWTH  HORM  4  HR 

(0-5NG/ML) 

ZLH 

SERUM  GROWTH  HORM  5  HR 

(0-5NG/ML) 

ZMA 

SERUM  GLUCAGON  -  FBS 

(200-2000PG/ML) 

ZMB 

SERUM  GLUCAGON  .5  HR 

(200-2000PG/ML) 

ZMG 

SERUM  GLUCAGON  2  HR 

(200-2000PG/ML) 

ZMD 

SERUM  GLUCAGON  3  HR 

(200-2000PG/ML) 

ZME 

SERUM  GLUCAGON  4  HR 

(200-2000PG/ML) 

ZMF 

SERUM  GLUCAGON  5  HR 

(200-2000PG/ML) 

ZNA 

SERUM  CALCITONLN  -  FBS 

(100-400PG/ML) 

• 

ZNB 

SERUM  CALCITONIN  .5  HR 

(100-400PG /ML) 

ZNC 

SERUM  CALCITONIN  1  HR 

(100-400PG/ML) 

ZND 

SERUM  CALCITONIN  1.5  HR 

(100-400PG/ML) 

ZNE 

SERUM  CALCITONIN  2  HR 

(100-4 OOPG/ML) 

ZNF 

SERUM  CALCITONIN  3  HR 

(100-400PG /ML) 

ZNG 

SERUM  CALCITONIN  4  HR 

(100-400PG/ML) 

» 

zjm 

SERUM  CALCITONIN  5  HR 

(100-4 OOPG/ML) 

•  • 

•  •  • 

•  • 

• 

.V  .  • 
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PANRL  Z2  -  GLUCOSE  TOLERANCE  PART  2 


Test  Code 
Z'OA 

ZOB 

Test  Name 

TOT  VOL  2HR  PRE  PRAND 

TOT  VOL  2HR  POST  PRAND 

Accuracy/ Re suit 

(15-800ML) 

(15-800ML) 

ZQA 

ZQB 

CALCIUM  :hR  PRE  PRAND 

CALCIUM  2 HR  POST  PRAND 

(l-oOMG/TV) 

(1-60MG/TV) 

ZRA 

ZRB 

CHROMIUM  2HR  PRE  PRAND 

CHROMIUM  2 HR  POST  PRAND 

(1-5UG/TV) 

(1-5UG/TV) 

ZSA 

ZSB 

COPPER  2HR  PRE  PRAND 

COPPER  2 HR  POST  PRAND 

(5-20UG/TV) 

(5-20UG/rV) 

ZTA 

ZTB 

MAGNESIUM  2HR  PRE  PRAND 
MAGNESIUM  2 HR  POST  PRAND 

(1-60UG/TV) 

(L-60UG/TV) 

ZUA 

ZUB 

ZINC  2HR  PRE  PRAND 

ZINC  2HR  POST  PRAND 

(SO-IOOUG/TV) 

(50-100UG/TV) 

ZVA 

ZVB 

CADMIUM  2HR  PRE  PRAND 

CADMIUM  2 HR  POST  PRAND 

(1-5UG/TV) 

(1-5UG/TV) 

» 


> 


I 


» 


» 


********  EXPLANATION  OF  NUMBERED  MESSAGES  *********** 

1.  ABNORMAL  TEST  8.  EXTREME  VALUE  -  ENTERED  UPON 

2.  LAB  ERROR  APPROVAL  OF  CHIEF  OF  CLINICAL  PATHOLOGY 

3.  PATIENT  LMPROPERLY  PREPPED  9.  SEE  NOTE  PERTAINING  TO  PANEL  CODE  > 

************************************ 


> 


» 


> 


» 


•  •  • 


•  •  • 


» 


4 
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Panel  Table:  LABPANTBL 


» 


■  , 


PANEL  A 

- 

HEMOGRAK 

PANEL  B 

- 

HEMOLYTIC  SCREEN 

PANEL  C 

- 

TISSUE  OBSTRUCT  SCREEN 

i 

PANEL  D 

- 

CARDIOVASCULAR  SCREEN 

PANEL  E 

- 

HEPATIC  SCREEN 

PANEL  F 

- 

RENAL  SCREEN 

PANEL  G 

- 

MISCELLANEOUS 

PANEL  H 

- 

PARATHYROID  SCREEN 

PANEL  I 

- 

METABOLIC  SCREEN 

» 

PANEL  J 

- 

HEMOGRAM 

PANEL  K 

- 

THYROID  PROFILE 

PANEL  L 

- 

HEMOLYTIC  SCREEN 

PANEL  M 

- 

RENAL  SCREEN 

PANEL  N 

- 

CEREBROSPINAL  FLUID 

PANEL  0 

- 

COAGULATION  SCREEN 

• 

PANEL  P 

- 

TISSUE  DESTRUCT  SCREEN 

PANEL  Q 

- 

CARDIOVASCULAR  SCREEN 

PANEL  R 

- 

TRACE  METALS 

PANEL  S 

- 

STOOL  EXAMINATION 

PANEL  T 

- 

HEPATIC  SCREEN 

PANEL  U 

- 

PARATHYROID  SCREEN 

R 

PANEL  V 

- 

MISCELLANEOUS 

PANEL  W 

- 

THREE  GLASS  URINALYSIS 

PANEL  X 

- 

THREE  GLASS  URINALYSIS 

PANEL  Y 

- 

HYPERTENSIVE  SCREEN 

PANEL  21 

- 

GLUCOSE  TOLERANCE  PART  1 

PANEL  22 

- 

GLUCOSE  TOLERANCE  PART  2 

» 

» 


» 


» 


•  •  • 


•  • 


' 

* 

✓ 
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APPENDIX  B:  SPIROtETRY  CALCUIATIOIS 

♦ 

FVC 

1 

Women 

0.115  Ht.  *  0.024A  -  2.852 
in 

Men 

0.U8  Ht.  '  0.025A  -  4.241 
in 

FeV  0,5 

t 

Women 

—  less  than  20  yrs. 

(Ht  )0.03  +  (A)0,043  -  3.05A 
cm 

over  20  yrs. 

(Ht  )0.019  -  0.014(A)  -  .406 
cm 

1 

• 

Men 

—  less  than  25  yrs. 

(Ht  )0.03  +'  (A)().043  -  3.054 
cm 

• 

• 

over  25  vrs. 

(Ht  )0.037  -  (A)0.027  -  4.203 
cm 

Fef  25-75 

► 

Women 

0.060  Ht.  -  0.030a  4-  0.551 

in 

Men 

0.047  Ht.  -  0.045A  +  2.513 
in 

> 

1 

i 

VMax  50 

1 

Women 

—  11  yrs.  to  less  than  20  yrs. 

-2.3040  +  (0.0288  X  Ht  )  +  (O.llll  X  A) 

cm 

» 

20  yrs  or  older 

-0.4371  +  (0.0321  X  Ht  )  +  (-0.024  X  A) 

cm 

Men 

—  12  yrs  to  less  than  25  yrs. 

-6.3851  +  (0.0543  X  Ht  )  +  (0.115  X  A) 

cm 

25  yrs.  or  older 

-5.5409  +  (0.0684  X  Ht  )  +  (-0.0366  X  A) 

cm 

» 

• 

•  •  • 

•  •  •  • 

• 

•  , 
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Spirometry  Calculations  (continued) 


VMax  7  5 

Women  —  11  yrs.  to  less  than  20  yrs. 

-4.4009  +  (0.0243  X  Ht  '  )  +  (0.2923  X  A)  +  (-0.0075  X  A) 

cm 

20  yrs.  or  older 

1.1177  +  (0.0096  X  Ht  )  +  (-0.0259  X  A) 

cm 

Men  —  12  yrs  to  less  than  25  vrs. 

-4.2421  +  (0.0397  X  Ht  )  +  (-0.0057  X  A) 

cm 

25  yrs.  or  older 

-2.4827  +  (0.031  X  Ht  )  +  (-0.023  X  A) 

cm 


Pef 


Women  —  between  18  to  20  yrs.  ^ 

(Ht  )0.049  +  A(0. 157)  -  3.916 
cm 

older  than  20  vrs. 

0.035(Ht  )  -'0.013A  -  0.444 

cm 

Men  —  between  18  to  25  yrs.  ® 

(Ht  )0.078  +  A(0.166)  -  8.06 
cm 

older  than  25  yrs. 

(Ht  )0.094  -  0.35A  -  5.993 
cm 


» 


•  • 


I 


DIFFUSION  CAPACITY 
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» 


DLCO 


» 


Women  —  21.9  X  Ht .  -  (0.115  X  A)  -  5.97 

in  ' 

Men  --  14.2  X  Ht .  -  (0.232  X  A)  +  16.3  » 

in 


» 


» 


» 


» 


» 


» 


» 
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He  DILUTION /LONG  VOLUMES 

PIF 


Women  —  (15.7(Ht.  )  -  3.3(A)  -  545)  X  0.7 
_ in^ _ 

60 

Men  —  15.7(Ht.  )  -  3.3(A)  -  545 
_ in  _ 

60 


TLC 

Women  —  between  18  to  20  yrs. 

0.079(Ht  )  -  0.008(A)  -  7.49 

cm 

older  than  20  yrs. 

0.079(Ht  )  -^0. 008(A)  -  7.49 

cm 

Men  —  between  18  to  25  yrs. 

0.094(Ht  )  -  0.015(A)  -  9.167 


older  than  25  yrs. 

0.094(Ht  )  -  0.015(A)  -  9.167 


FRC 

Women  —  between  18  to  20  yrs. 

0.122(Ht.  )  -  5.01 
in 

older  than  20  yrs. 

0.053(Ht  )  -  0.017(Wt  )  -  4.74 

cm  ■‘•D 

Men  —  between  18  to  25  yrs. 

0.1295(Ht.  )  -  5.19 
in 

older  than  25  yrs. 

0.081(Ht  )  -  1.792(BSA)  -  7.11 

cm 


RV 

Women  —  between  18  to  20  yrs. 

0.0183(Ht  )  +  0.009(A)  -  3.9 

cm 

older  than  20  yrs. 

0.032(Ht  )  +  0.009(A)  -  3.9 

cm 

Men  —  all  ages  over  18  yrs. 

0.032(Ht  )  +  0.017(A)  -  3.447 

cm 


» 


» 


i 


» 


» 


» 


•  • 
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Edit  Validation  Table;  TMIKTTBL 


Table  for  INTERPRETATION  (TM  -  C36) 

COLl  C0L2 

320  320  -  SUBMAX  TM  ETT  NORMAL 

321  321  -  SUBMAX  TM  ETT  BORDERLINE  ST  DEPRESSION 

32A  32A  -  SUBMAX  TM  ETT  BDL  ST  DEPRESSION  PLUS  SIGNIFICANT  ARRHYTHMIA 

32B  32B  -  SUBMAX  TM  ETT  BDL  ST  DEPRESSION  PLUS  SYMPTOMS  OF  ANGINA 

322  322  -  SUBMAX  TM  ETT  ABNORMAL  ST  DEPRESSION 

323  323  -  SUBMAX  TM  ETT  ABN  ST  DEPRESSION  PLUS  SIGNIFICANT  ARRHYTHMIA 

324  324  -  SUBMAX  TM  ETT  ABN  ST  DEPRESSION  PLUS  SYMPTOMS  OF  ANGINA 

326  326  -  SUBMAX  TM  ETT  ABN  BP  RESPONSE  TO  STRESS 

327  327  -  SUBMAX  TM  ETT  NORMAL  ST  RESPONSE  BUT  SIGNIFICANT  ARRHYTHMIA 

328  328  -  SUBMAX  TM  ETT  ABN  DUE  TO  SYMPTOMS  ONLY 

329  329  -  SUBMAX  TM  ETT  OTHER 

340  340  -  MAX  TM  ETT  NORMAL 

341  341  -  MAX  TM  ETT  BORDERLINE  ST  DEPRESSION 

34a  34a  -  MAX  TM  ETT  BDL  ST  DEPRESSION  PLUS  SIGNIFICANT  ARRHYTHMIA 

34B  34B  -  MAX  TM  ETT  BDL  ST  DEPRESSION  PLUS  SYMPTOMS  OF  ANGINA 

342  342  -  MAX  TM  ETT  ABNORMAL  ST  DEPRESSION 

343  343  -  MAX  TM  ETT  ABN  ST  DEPRESSION  PLUS  SIGNIFICANT  ARRHYTHMIA 

344  344  -  MAX  TM  ETT  ABN  ST  DEPRESSION  PLUS  SYMPTOMS  OF  ANGINA 

346  346  -  MAX  TM  ETT  ABN  BP  RESPONSE  TO  STRESS 

347  347  -  MAX  TM  ETT  NORMAL  ST  RESPONSE  BUT  SIGNIFICANT  ARRHYTHMIA 

348  348  -  MAX  TM  ETT  ABN  DUE  TO  SYMPTOMS  ONLY 

349  349  -  MAX  TM  ETT  OTHER 
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APPENDIX  D;  TMARRTBL 
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Edit  Validation  Table:  TMARRTBL 
Table  for  ARRHYTHMIA  (TM  -  C39) 

COLl  C0L2 

A  A  -  Supraventricular 

B  B  -  Ventricular 

C  C  -  Ventricular  multifocal 

D  D  -  Mixed  origin 

E  E  -  Uncertain  origin 

G  G  -  Sinus  Pause  Without  Ventricular  Escape 

H  H  -  Sinus  Pause  With  Ventricular  Escape 
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TMONSTBL 
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Edit  Validation  Table:  TMONSTBL 


Table  for  ONSET  (TM  -  C391) 

COL I  C0L2 

R  R  -  Recumbent 

H  H  -  Hyperventilation 

U  U  -  Early  Upright 

S  S  -  End  of  Steading 

E  E  -  Early  Exercise 

M  M  -  Mid  Exercise 

L  L  -  Late  Exercise 

1  1  -  lomediate  Recovery 

2  2  -  Recovery  MIN  2 

3  3  -  Recovery  MIN  3 

4  4  -  Recovery  MIN  4 

5  5  -  Recovery  MIN  5 

6  6  -  Recovery  MIN  6 

7  7  -  Recovery  MIN  7 

8  8  -  Recovery  MIN  8 

A  A  -  Throughout  Pre-stress  Period 

B  B  -  Mid  Stress  and  Late  Recovery  Only 

C  C  -  Progressing  thru  Stress  and  Persisting  thru  Recovery 

D  D  -  Late  Stress  and  Immediate  Recovery 

P  F  -  Thru  Mid  and  Late  Stress 

G  G  -  All  Periods  Without  Change 

T  T  -  Late  Stress  thru  Late  Recovery 

J  J  -  Rest  Ectopy  Suppressed  by  Exercise 

K  K  -  Rest  Ectopy  Increasing  with  Exercise 
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APPENDIX  P:  IMFRETBL 


» 


» 


» 


» 


» 
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Edit  Validation  Table:  TMFRETBL 
Table  for  FREQUENCY  (TM  -  C392) 

COL  I  C0L2 

0  0  -  Ectopic  once 

1  1  -  Ectopy  occassional 

2  2  -  Ectopy  frequent 

3  3  -  Ectopic  couplet  only 

4  4  -  Ectopic  triplet  only 

5  5  -  4  or  more  consecutive  ectopics  only 

6  6  -  Ectopic  couplet  plus  frequent  ectopy 

7  7  -  Ectopic  triplet  plus  frequent  ectopy 

8  8  -  4  or  more  consecutive  ectopics  plus  frequent  ectopy 

9  9  -  Other 

K  K  -  Bundle  branch  or  2ND  or  3RD  degree  block 


•  •••••• 
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APPENDIX  G:  THLKATBL 
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Edit  Validation  Table:  TMLBATBL 
Table  for  LEAD  (TM  -  C41 ) 

COLl  C0L2 

X  X  -  X  only 

Y  Y  -  new  Y  only 

Z  Z  -  Z  only 

V  V  -  any  V4  thru  V6  only 

L  L  -  I  alone  or  with  any  V4  thru  V6  only 

T  t  -  any  AVP  cr  II  orly 

F  F  -  Y  plus  any  AVF  or  II  only 

P  P  -  X  with  any  V4  thru  V6  regardless  of  I 

Q  Q  ~  X  and  Y  with  or  without  Z 

R  R  -  Other  combinations 

K  K  -  Old  Y 


» 


i 


i 


» 
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APPENDIX  H:  TMPBRTBL 
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Edit  Validation  Table:  TMPERTBL  (sane  as  TMOHSTBL) 


Table  for  PERIOD  (TM  -  C4A1 ) 

COL I  C0L2 

R  R  -  Recumbent 

H  H  -  Hyperventilation 

U  U  -  Early  Upright 

S  S  -  End  of  Standing 

E  E  -  Early  Exercise 

M  M  -  Mid  Exercise 

L  L  -  Late  Exercise 

1  1  -  Immediate  Recovery 

2  2  -  Recovery  MIN  2 

3  3  -  Recovery  MIN  3 

4  4  -  Recovery  MIN  4 

5  5  -  Recovery  MIN  5 

6  6  -  Recovery  MIN  6 

7  7  -  Recovery  MIN  7 

8  8  -  Recovery  MIN  8 

A  A  -  Throughout  Pre-stress  Period 

B  B  -  Mid  Stress  and  Late  Recovery  Only 

C  C  -  Progressing  thru  Stress  and  Persisting  thru  Recovery 
D  D  -  Late  Stress  and  Immediate  Recovery 

F  F  -  Thru  Mid  and  Late  Stress 

G  G  -  All  Periods  Without  Change 

T  T  -  Late  Stress  thru  Late  Recovery 

J  J  -  Rest  Ectopy  Suppressed  by  Exercise 

K  K  -  Rest  Ectopy  Increasing  with  Exercise 


•  • 
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APPENDIX  I:  THRBPTBL 
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Edit  Validation  Table:  TMREPTBL 
Table  for  REPOLARIZATION  (TM  -  C442) 

COLl  C0L2 

A  A  -  T  wave  Inversion 

B  B  -  Less  than  0.5  mm  flat  ST  depression 

C  C  -  J  pt  depression  over  0.9  mm  with  slope  over  0.9  mm  per  sec 

D  D  -  J  pt  depression  with  Inadequate  HR  adjusted  slope 

E  E  -  0.5  to  0.9  mm  flat  or  downward  ST  depression 

F  F  -  l.O  to  1.9  mm  flat  or  downward  ST  depression 

G  G  -  Over  1.9  mm  flat  or  downward  ST  depression 

H  H  -  Over  0.9  ram  of  ST  coving 

I  I  -  Over  0.9  mm  of  ST  elevation 

N  N  -  Abnonnal  ST  becomes  normal 

P  P  -  Labile  repolarization 
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